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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED. UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

i ITY FOR THE USE OR RELIABILITY OF ITS 
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IS NOT SUPPLIED BY DIGITAL. 
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: FACILITY: DECnet-VAX Network Management Listener 


i ABSTRACT: 
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These routines provide the operations necessary to perform all 
NCP SET entity commands. 


i ENVIRONMENT: VAX/VMS Operating System 
i AUTHOR: Distributed Systems Software Engineering 
i CREATION DATE: 30-DEC-1979 
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i MODIFIED BY: 


v03-011 MKP0017 Kathy Perko 13-Aug-1984 
For entities that have at least one required field, 
qea't : t do a SET ALL if the entity isn't in the permanent 
atabase. 


v03-010 maronie y Perko 25-Mar-1984 
x SET LOGGING = 0 events are added correctly. 
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SSET NAL SET parameter module 16-Sep-1984 00:31:17 VAX-11 Bliss-32 V4.0-74 Pa 

vos 000 . 1e-35b=198e 93:80:19 — DISKSVMGMASTERSCWME SRCINMLSET.832:1° °° (15 

; 28 2 13 v03-009 maroels Kathy Perko 3-F eb-1984 : 
: Fes : : Add X25-Access Module support. : 
; (61 1 i V03-008 MKP0014 Kathy Perko 4~Aug=1983 : 
; 6¢ § 1} Make changes to give the node permanent database multiple ; 
: o7 : : ISAM keys. This speeds up accessint it. : 
; 65 5 1! V03-007 MKPO013 Kathy Perko  26-April-1983 
: $6 $ : } Add SET MODULE CONFIGURATOR ALL commands. : 
i 68 8 ii VO3-006 MKPI012 Kathy Perko —_ 23-Nov_1982 : 
; +4 : } Add module as a source for events. : 
: 71 i 1/ vO3-005 MKP0011 Kathy Perko 27-0c t-1982 : 
; if : } Enlarge NFB buffer used for SETs. : 
3; 2% 0074 1/ V03-004 MKP0010 Kathy Perko 14-Sept-1982 : 
; i 2s For Logging to the executor node, the sink node address is : 
; Bore 1! stored in the permanent database as zero. This allows the ’ 
. ae 0077 1! logging permanent database to be transportable without logging ; 
3 re Bore } } events to the old executor. : 
; 80 0080 1 V03-003 MKP0009 Kathy Perko 10-Sept-1982 3 
H 3 88 1 : Put in fix so SET X25-PROTOCOL KNOWN GROUPS ALL works. : 
: Hy 0088 1/ vO3-002 mKP0008 Kathy rscko 23-June-1982 F 
>; 84 0084 1! Add support to handle X25-Protocol “‘active network’’ concept. : 
3 85 0085 1! Also, change qualifier handling to use the qualifier's : 
>; 86 0 4] 1! Parameter Semantic Table (PST) entry address, instead of 3 
s 87 0087 1! the 9 gt iter .3 Network Management parameter code. : 
$ oS sit : : Add 3 and X29 Server and Trace modules. : 
:; 90 9090 i V03-001 MKP0007 Kathy Perko © 28-April-1982 : 
oe 91 1! Make changes to add second search key to Q10 interface : 
; 4 454 : ; to NETACP. : 
; 9 0094 1} V02-005 MKP0006 Kathy Perko 07-Feb-1982 ; 
; 32 0095 : : Repair previous fix to reinstate SET KNOWN LOGGING ALL. : 
: 97 097 1: v02=004 MKP000S kathy Perko 31-Jan-1982 ; 
; «98 B08 1! For SET KNOWN LOGGING commands, change NML so it will do the F 
; 00 1! upgete if the sink has an entry in either the ESI or the 3 
3 190 139 : EFI volatile database. : 
; 108 1 é 1 i V02=004 MKP0004 Kathy Perko 17-Nov-1981 ; 
; 10 1 1! Add circuits to logging event sources, and fix buffer : 
3: 104 1 1! overflow problem correctly (if not filters defined for 3 
: 19) 193 : a sink, error returned was buffer overflow). . 
: 199 199 1/ v02-003 MKP0003 Kathy Perko 16-Nov-1981 3 
3 H's \98 : : Undo the previous fix. It's wrong. : 
: 110 110 1! v02-002 mKP0002 Kathy Perko 17-Sept-1981 ; 
3: 6111 71 33 Fix SET KNOWN LOGGING ALL so that buffer overflow : 
3 \¢ ig ' is not returned if no logging is defined for a sink. : 
: 114 114 1 v02-001 MKP0001 Kathy Perko 21-July-1981 | 3 
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SET 


eclarat 


qereneter module 


OWN 
NMLSQ_ENTBFDSC : 1 


; EXTERNAL REFERENCES: 


SNML_EXTDEF; 
ee 1 LITERAL 
NAL BADE VTUPD, 


EXTERNAL ROUTINE 
NAL 


NML SBLDSETOBF 
NMLSCALL_NI one 
NAL $GETEREID 
NMLSGETINF TABS, 
NAL SCET. ENTITY IDS, 
NMLS$GETAXT 
NML$GETN NAY gute 
NML$GETEXEADR 
NALSGETRECOUNER, 
NMLSGETTABLE, 


ye 
NMLSREAD_KNOWN NODE _REC, 
NMLSREADRE CORD 
NALSSAVEVENTS.” 

NMLSSEND; 


iSdeoct9Re 00:51:12 


OR 
(0, NMLST_ENTBUFFER); 
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ZSBTTL "NMLSSETENTITY Set volatile database graneters. 
GLOBAL ROUTINE NMLSSETENTITY wat SE ENTITY ENTITY_ADR 
“PST, QUAL chen’ QUAL“ADRS : NOVALUE = 


!ee¢ 


; FUNCTIONAL DESCRIPTION: 


This routine adds fhe specified parameters to the volatile data base 
entry fer the specified component. The purpose of this routine is 
to allow the same code WAL CLEARENTITY, etc.) to be used for both 
singular and plural entity Operations. 


i FORMAL PARAMETERS: 


Entity type code. 
N Byte count of entity id string. 
5 Address of entity id string. 
U Qualifier’s Parameter denent te Table address 
QUAL _LEN Qualifier tength 
QUAL_ADR Qualifier address 


i SIDE EFFECTS: 
i A NICE response message is built and transmitted. 
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1! ENTITY_AD 
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1 
BEGIN 
LOCAL 
MSGSIZE; 
: ~ Server and Trace, and X29 Server databases have only one entry. So 


Mrrr 


te RA See re ee een et ae 5 , taht ek ed 


ays do a wildcard zero of these databases. 


ITY EQL NMLSC_X25_SERV OR 
TTY EQL NMLSC_X29-SERV OR 
rv EQL NALSC_ “TRACE THEN 


LEN = -1;7 


PUSS 
VEWN—OO0OnNe 


: Call the routine to process the entity. 


NML_SETENTITY (. weatae Ear ety LEN, ENTITY ADR, 
L_PST, TQUAL_LEN, .QO0AL _ADR); 


: Build and signal the response message. 


NMLS$BLD_REPLY (NMLS$AB_MSGBLOCK WSGSIZE):; 
NMLSSEND (NMLSAB_SNDBOFFER, .MSGSIZE) 


END; ! End of NMLSSETENTITY 
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00000000 
00000000" 


F 12 
VAX-11 Bliss-32 V4.0-7 


-PSECT SPLITS,NOWRT ,NOEXE,2 


P.AAA: .LONG 1200 
“ADDRESS NMLST_PRMBUF FER 
+ AAB: LONG 256 
“ADDRESS NMLST_NFBBUFFER 
6 P. AAC: .LON 

ADDRESS NMLST_P2BUFFER 

-PSECT SOWNS,NOEXE,2 
00000 NML$T -PRIBUFFER: 
00480 NMLST_NFBBUFFER: 

-BLKB 256 
00580 NMLS$T _P2BUFFER: 

LKB 104 

00618 NMLST_ENTBUPFER: | 
00658 NMLSQ_ENTBFDSC: 
0065¢ -ADDRESS NMLS$T_ENTBUFFER 


NML$Q_PRMBFDSC= P.AAA 
NML$Q"NFBBFDSC= oo 


NMLSQ~ Sho ose ~ P.AA 
NMLS$GB_ EVTSRCTYP 


1200 


XTRN NMLSAB-RECBUF Mon SAL EN _ENTINE TAB 
TRN NAL f 


*EX a 1K 
“EXTRN NMLSAB_NML_NM RMSEM 
; NMLS$GB_CMD_VER 
2 DE 
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Se 


Vos O80 NALSSETERTITY® Set cototile database parameters 1 1$-$eo-1984 99: 30:19 Me 
Qu 


x NML$_NOSNKNOD 


NMLSADDEVENTS 
ou 


L seer ENT 
x NMLSGETAXTEVT, “Wa Seer NXTSNK 
eEXTRN NAL SGETEX XEADR, ng sh mam 
x TABLE, NMLSNETQIO 


-EXTRN NMLSGET 
-EXTRN NMLSREAD NODE_REC 
.EXTRN NMLSREADRECORD, NMLSSAVEVENTS 
<EXTRN NMLSSEND 
-PSECT $CODES,NOWRT,2 
oo 000 ENTRY NMLSSETENTITY, Save nothing 3 0213 
5E 04 C2 0000 suBL2 ’ : 
11 04 AC 01 0000 MPL ENTITY, #17 + 0248 
OC 13 00009 BEQL : 
15 04 AC 01 00008 CMPL ENTITY, #21 + 0249 
06 13 OO000F BEQL F 
13 04 AC 01 00011 CMPL NTITY, #19 : 0250 
4 12 0015 BNEQ : 
08 Ac 1 c 0017 1$ MNEGL #1, ENTITY_LEN : 0251 
7E 14 AC 7D 0001B 28 mova UAL_LEN, =(SP) : 0257 
7E OC AC 7D OOO1F mova ENTITY ADR (SP) ; 0256 
7E 04 Ac 7D 000 3 MOVQ ENTITY; -(SP) ; 
00000000v 00 96 FB 000 CALLS #6, NML_SETENTITY ; 
E 0D 000 PUSHL SP : 0261 
000000006 00 9F 000 PUSHAB NMLSAB_MSGBLOCK : 
000000006 00 02 FB 000 CALLS #2, NMCSBLD_REPLY ; 
6E 0D 000 PUSHL MSGSIZ : 0262 
000000006 6 9F OCO3F PUSHAB NMLSAB_SNDBUFFER ; 
000000006 00 FB 0945 CALLS #2, NMCSSEND : 
04 0004 RET : 0264 


3; Routine Size: 77 bytes, Routine Base: S$CODE$ + 0000 
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ZSBTTL "NMLSSETKNOLOG Set parameters for known Logging | 
GLOBAL ROUTINE NMLSSETKNOLOG (ENTITY, DUM1, DUM2) : NOVALUE = 


. 
a 
5 


lee 

: FUNCTIONAL DESCRIPTION: 

Add parameters to KMOWN entries in the logging volatile data base. 
i FORMAL PARAMETERS: . 

i ENTITY Entity type code. 

: DUM1 Not used.” 

DUM2 Not used. 
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BEGIN 


i NFBs used to find out if NETACP already has entries in its database for 
: each sink type. 


SNF BDSC C(ESINFB, 
SHOW, 
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Se 


NFB descriptor Label. 
Function code 

No flags 
Esl, ACP Data base ID 
SNK,, Search key one ID = § 
; ! Search key two ID = w 


coco 
Oo 
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vuvvUU 
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- type, operl = eql 


i 
ildcard, oper2 = eql 


SoS 
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QS 
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SG 
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DESCRIPTOR, 
DESCRIPTOR, 
OR, 
OR, 


FRAN LSESSEVSEAFAV ELS SSIS AP ow —S oe 
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BOSC: 
P2DSC : DESC 
BLKDSC: DESC 
SRCPTR 


oo 
Wn 


KNOWN LOGGING ALL is defined by whatever is set in the permanent data base. 


KNOWN LOGGING is defined by sink node. In otherwords: 

E 0G updates the executor node logging. This means updating 
the sink (ESI) and filter (EFI) volatile database entries which already 
exist for the executor. Note that the ESI database applies to the 
executor node on be 

T KNOWN LOGGING SINK NODE updates Logging for the specified sink 
node. This means updating the filter (EFI) volatile database entries which 
already exist for that node. 


NCR. SNK FROM NMASC SNK CON TO NRASC_SNK_HON DO 
' 


Ww 


SRVSEAE 


i If processing a SET KNOWN LOGGING ALL command, the Logging set in the 
permanent database determines what gets set in the volatile database. 
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IF «NALSGL_PRS_FLGS CNMLSV_PRS_ALLJ 


NML_SETLOGALL (.SNK) 
ELSE 


etermine if there are any entries in the volatile database for this 
ink node and sink (console, file, monitor). 

IN 
T 


MEW —OVDOnNOu 


D 
§ 
G 
A 
If the sink node is the executor node, check to see if there's 
anything in the sink database. 

f WM SEL PRS _FLES CNMLSV_PRS_EXESNK] THEN 


NMLSBLDP2 (0, .SNK, -1, 0, NML$Q_P2BFDSC, P2DSC); 
STATUS = NMLSNETQIO (ESINFB, P2DSC, P3, NML$GQ_QIOBFDSC); 


QDOOCOOCOSCOOCOCCCOoO 


TPII III I RR RRR Ren ee eee aed 


PAA ATTAIN £ & 


i 
B 
$ 
1 
i 
i 
: 
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If the sink node isn't the executor node, or there isn't anything in 
He est fetabese for the exec, check the filter (EFI) database for 
Ss sink. 


F NOT .STATUS THEN 
BE 


i 
4 
4 
4 
4 
4 
; 
4 
4 
4 
4 
4 
4 
4 
NMLSGETINFTABS (NMLSC_LOGGING, NMLSC_EVENTS, NFBDSC, DUMDSC, 0); 
NMLSBLDP2 (0, .NMLSGW-EVTSNKAOR, -1,70, NML$Q_P2BFDSC, P2DSC); 
4 
é 
6 
5 
é 
5 
6 
6 
4 
4 
4 
4 
4 
4 
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i Get events set for specified sink node. Then search through the 
! source block of events to see if any of the events are specified 
for the sink currently being processed. 


iF we oo vase (.NFBDSC, P2DSC, P35, NMLSGQ_QIOBFDSC) THEN 


PAA ADMAVUI 


A. A.ALA ANIA 


PTR = oN, 208 Sj oer one COSCSA POINTER: 
BLKDSC postev Level = .(.PTR)<0,16>; 
BLKDSC BELsA POINTER = .PTR + 2; 


OOQCOCOSCOSCOCOCCOOOOOOOOOOoOoOO 


Pun 


SRCPTR = 


i If any of the events are for the sink I am currently 
working on, then do the SET for that sink. 


STATUS = NMLSGETNXTSNK (BLKDSC, .SNK, SRCPTR); 


END; 
IF .STATUS THEN 


i] 
! Either the EFI or the ESI volatile database giroady has an entry 
for this sink (File, console, or monitor). So do th 


# NMLSSETLOGGING (.ENTITY, .SNK, 0); 


WN —OOONOVUES WN“ O ODONOUS WIC OM 


So 


e update. 


SOOSSGOOOOOCOOOOOCOSoO: 
ANNAN oO 
ae Pe te PS w 


END; ! End of NMLSSETKNOLOG 


“ 


NF 
vc 
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NMLSSETKNOLOG Set parameters for known Logging 1 30071 38e 99530319 DISKSVMSMASTER:CNML.SRCJNMLSET.B32;1 ~_ ( 


so 
—" 


-PSECT SPLITS,NOWRT ,NOEXE,2 


00014 00018 P.AAD: .LONG 20 ; : 

Sp 3p008" inthe [ADDRESS U.1 : : 

.PSECT SOWNS,NOEXE,2 : 

22 00660 ;_NFB 3 

O71: .BYTE 34 ; : 

9 066) “BYTE : ; 

9 066 “BYTE 0 : ; 

70100 0664 “LONG 117506064 : : 

0000001 00668 “LONG 1 : : 

‘e003 -BYTE 0 : 3 

66D “BYTE 0 : ; 

0000 006 E “WORD 0 : : 

00000000 006 “LONG 0 : : 

U.2= P.AAD : 

.PSECT $CODE$,NOWRT,2 ; 

O1FC 00000 .ENTRY NMLSSETKNOLOG, Save R2,R3,R4,R5,R6,R7,.R8  ; 0266 : 

58 000000006 00 9E 00002 MOVAB NMLSNETQIO, RB : ; 
57 000000006 00 9€ 00009 MOVAB NMLSBLDP2, R7 : : 
56 000000006 00 9€ 00010 MOVAB NML$GO QIOBFDSC, R6 : : 
55 00000000' 00 9€ 00017 MOV NAL $0 P2BFDSC, RS : ; 
SE 0 C2 O0O1E SUBL2 #32, SP : F 
52 1 00 00021 MOVL #1, SNK : 0316 ; 
0c 000000006 00 1 £1 00024 1$: BBC #1. NMLSGL_PRS_FLGS, 2$ : 0322 : 
2 DD 0002c PUSHL + 0324 : 

00000000v 00 01 FB 000 E CALLS #1, NML_SETLOGALL : F 
0098 31 00 BRW 6$ F ; 

54 D4 23: CLRL STATUS : 0331 3 

22 000000006 00 9 003A BLBC —- NMLSGL_PRS_FLGS+1, 3$ : 0336 : 
18 AE F 00041 PUSHAB P2DSC : 0338 : 

55 DD 00044 PUSHL R : ; 

7E D4 0004 CLRL. (SP) : : 

7E 1 CE 0004 MNEGL #1, -(SP) : : 
2 PUSHL SNK : ; 

67 f Sees #6. NMLSBLDP2 : : 
3 PUSHL R > 0339 ; 

AE SHAB  P : : 

AE PUSHAB P2DSC : : 

A PUSHAB ESINFB : ; 

8 4 CALLS #4, NMLSNETQIO : F 
4 0 MOVL RO, STATUS : : 
F 4 BLBS STATUS, : 0346 : 
E CLRL = = (SP) : 0348 ; 

04 AE PUSHAB DUM : : 

C AE PUSHAB NFBDSC : : 

04 PUSHL @# 3 3 


K 12 
$SET ameter module 16-Sep-1984 VAX-11 Bliss-32 V4.0-7 1 NI 
you~000 NALSSETKNOLOG Set parameters for known logging 12: 308-1382 99: 30:19 DISKSVMSMASTER: CNML. se NMLSET.832;1 —— (4) v\ 
1 DD 0007 PUSHL # : 
000000006 00 - a3 8 re CALLS #35 NMLSGETINF TABS | one 
3 DD oC PUSHL : 
4 D4 CLR - 3 
7E ce MNEGL #1, =(SP) : 
7E 000000006 00 3 ; mOVZUL NAL SGU EVTSNKADR, =-(SP) : 
67 6 FB C CALLS is, NMLSBLDP2 : 
g D E PUSHL 3 0355 
AE OF 1 PUSHAB : 
AE 9F 94 USHAB : 
AE DD 00097 PUSHL NFBDSC : 
g4 FB 9A CALLS #4, NMLSNETQIO : 
0 £9 0009D BLBC ~—E_—dRO, j 
06 A 9 OAQ MOVL NML $GQ_ QIOBFDSC+4, PTR : 0357 
10 AE 6 8 AG MOVW (PTR), BLKDSC : 0358 
14 AE 2 AS 9E Ons MOVAB 2 R3) BLKDSC+4 : 0359 
C AE pd AD CLRL  - SRCPTR + 0360 
C AE 9F 0008 PUSHAB SRcPIR : 0365 
52 0D 008 PUSHL : 
18 AE 9F 0008 PUSHAB Buns : 
000000006 90 03 FB 00088 CALLS @ NRL $GETNXTSNK : 
4 50 00 90085 MOVL RO, STATUS : 
OE 4 €9 doce 4$ BLBC STATU US, 6$ : 0368 
§ D4 O00CS 5$ CLRL : 0373 
52 0D 900¢? PUSHL : 
00000000v 00 - 0 PB Soc CALLS ie IMAL SSETLOGGING ; 
FF4B 52 01 03 Fi Sb05$ 6$ ACBL «os #2, #1, SNK, 1$ : 0316 
04 00009 RET : 0377 


; Routine Size: 218 bytes, Routine Base: S$CODE$ + 004D 


Be Oe Be Oe Be Oe Se Se Se Se Se Se Se Se Se Ge Se Se BeBe Ge Ge Ge Ge Ge FO Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Se eee Se Se Fe Geese Ge ee 


Sep-1 1:17 


L acing “Set to losing parameters 1$-$e0-1984 99: 3); 719 D 


11 BL alse -32 V4.0-7 Page 13 
SKSVMSMASTER: NMC SRC NMLSET.B32;1 (5) 


NP 
v¢ 


i 
sf 
a5 


AX- 
I 


“ww 


& 


T 

T 
78 1 SSBITL aan TSE TLOSE INS Set Logging pergneters. : 
7 } GLOBAL ROUTINE NMLSSETLOGGING TITY, SNK, DUM2) : NOVALUE = : 
1 lee : 
; FUNCTIONAL DESCRIPTION: : 
1! Add Gerenetere to the volatile data base entry for the specified : 
5 ; Logging entity. : 
; i FORMAL PARAMETERS: : 
! — Entity ty ©, tote. : 
oggin ‘ : 
31 1 DUN2 Not used. ; 
38 1 { IMPLICIT INPUTS: ; 
95 1! NMLSGL_PRS_FLGS Message parsing flags. : 
38 ! NMLSGW"EVTSNKADR Sink node address. : 
0398 IMPLICIT OUTPUTS: é 
404 00 1: NONE : 
0401 1! : 
406 8g 1 | ROUTINE VALUE: : 
407 8 1 ' COMPLETION CODES: : 
408 41! 3 
+44 05 : NONE ; 
4) oF SIDE EFFECTS: : 
418 : $ A NICE response message is built and transmitted. : 
415 11 1 /I- : 
218 gi | 1 : 
41 13 BEGIN : 
419 bets LOCAL ; 
? 1 , MSG_SIZE; ! Message size : 
2 § Oct8 Check the parsing flags to see if this is a SET ALL function. ; 
42h 9 "IF .NMLSGL_PRS_FLGS CNML$V_PRS_ALL] : 
426 é NML_SETLOGALL (. SNK) ; 
4 ELSE : 
428 43, BEGIN 3 
4 6 Decide if the parameter group is for filters (EFI) or sinks (ESI). ; 
<3 § IF_.NMLSGL_PRS_FLGS CNMLS$V_PRS_ESIPG) 3 
434 0 ps NML_SETENTITY (NMLSC_SINK, 1, SNK, 0, 0, 0) : 
43 ; NML_SETLOGGING (.SNK, .NMLSGW_EVTSNKADR) ; 3 
438 END; : 
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ree 
GGING Set logging parameters MSMAST 


sSerubecine s Sep 
' 


NMLSQ_ENTBFDSC [DSC$W_LENGTH] = 1; 
NMLS$Q_ENTBFDSC BORSA POLNTERS = NMLST_ENTBUFFER; 
NML$T~ENTBUFFER<O, ~SNK; 

Add entity descriptor to message information. 


NMLSAB_MSGBLOCK [MSB$V_ENTD_FLD) = 1; 
NMLSAB-MSGBLOCK CMSBSA_ENTITY) = NML$Q_ENTBFDSC; 


Build and send the message. 


NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSG SIZE); 
NMLSSEND (NMLSAB_SNDBOFFER, .MSG_SIZE); !’Send message 


END; ! End of NMLSSETLOGGING 


>s K; 


T 
T 
Add entity id (sink type code) to entity buffer. 


DVB BBB EE EEE PNA 


MO OONAUES WH" OOONOU 


Se ee Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se ee 
Fk eth ahh ek tak al tak ak la ak tak a alla 
PAA EE BEES EP 
MPWN—O wie oO 


M 
1er$8p=1986 12:50:19 DL SKSVMSMASTERSCNML- SRC 


age 3 


P 
Sum SeT.832;1 ) 


000c 00009 .ENTRY NMLSSETLOGGING, Save R2,R3 : 0379 

53 000000006 00 9€ 00002 MOVAB NML$AB_MSGBLOCK, : 

52 00000000' 00 9€ 00009 MOV NML$Q_ENTBFDSC, R2 : 

3E 04 C 0010 SUBL2 #4, $ ; 
0c 000000006 0 1 £1 0001 BBC #1, NNLSGL_PRS_FLGS, 1$ + 0420 
08 AC DD 00018 PUSHL : 0422 

00000000v 00 i Fe o035 CALLS #1, NML_SETLOGALL ; 
14 000000006 00 4 gi 0027 1$: BBC #4, NMLSGL_PRS_FLGS+1, 2$ > 0428 
E 7C 000eF CLRQ 2s = §P) : 0430 

7E pe 0031 CLRL -(SP) 3 

08 AC 9F 00033 PUSHAB SNK : 

1 DD 00036 PUSHL #1 : 

2 DD 00038 PUSHL #2 : 

00000000v 00 0¢ FB 005A CALLS #6, NML_SETENTITY : 
7E 000000006 00 3C 00043 28: MOVZWL NMLS$GW_EVTSNKADR, -(SP) + 0432 

08 AC DD 0004A PUSHL SNK : 

00000000v 0¢ FB 9940 CALLS #2, NML_SETLOGGING : 
6 054 3$: MOVW #1. NMLSQ ENTBFDSC > 0438 
04 =A £0 A2 00 7 MOVAB NMLST ENTBUFFER, NML$Q_ENTBFDSC+4 > 0439 
cO A A ¢ MOVB SNK, AMLS$T_ENTBUFFER : 0440 
bs 1 8 0961 BISB2 #16, NMLS$AB MSGBLOCK > 0444 
14 «AS 62 9E 00064 MOVAB NML$Q_ENTBFDSC, NMLSAB_MSGBLOCK+20 > 0445 
4008 ¥ 8B 068 PUSHR #°M<R3,SP> 3: 0449 

000000006 00 2 FB 06 CALLS #2, NMLSBLD_REPLY : 
D PUSHL > 0450 

000000006 F 07 PUSHAB NMLSAB_SNDBUFFER : 

0000006 0 FB 18 CALLS #2, NMCSSEND ; 
04 0008 RET > 0452 


; Routine Size: 131 bytes, Routine Base: $CODE$ + 0127 


STATUS = NMLSNETQIO pyfaoa P2DSC, P3, NML$GQ_QIOBFDSC); 
IF NOT .STATUS AND (.STATUS NEQ NML$_STS_CMP) 
RETURN; 


Sesese 


EVTLEN = 
EVTADR = NMLSGQ_ QTOBFDSC 


GES 


(. NML$GQ_QI0BFD a i: SPOINtER see 


NAL SSET NML SET parameter module Sep-19 2:31:17 VAX-11 BL Ais s-32 V4.0-74 15 
you~ O00 WML _SETLOGGING Set Logging parameters 18-30-1984 13:3h:15  SESKSUMGMASTERSEWME SRCSNMLSET.832:1"°%° «o> 
H $28 3 1 ZSBTTL "NML_SETLOGGING Set Logging pa parameters’ 

; 74 2 : ROUTINE NML-SETLOGGING (SNK, SNKADR) : NOVALUE = 

; 461 § 1 fee 

; re | ! } FUNCTIONAL DESCRIPTION: 

: 464 § 1! This routine performs common SET functions for both singular 
3 $3? ? ; } and plural logging volatile data base operations. 

; te? $ 1 ! FORMAL PARAMETERS: 

: 088 1i SNK Logging sink 

3 ogging sink type. 

: 470 gf i SNKADR Sink node address. 

3 «471 96 1! 

$ 47 6 1 loo 

3; 47 68 1 

3; 474 +4 BEGIN 

3: 475 0 

3; 47 71 

; 47 Lf SNKADR : WORD; 

: 478 7 

3; 479 74 LOCAL 

; 480 75 ' Database ID 

> 481 2% SRCHKEY1, i Search key one ID 

3; ¢§ ¢ 047 SRCHKEY2, ! Search key two ID 

; 48 pee sated : REF DESCRIPTOR, ! Dummy descriptor for table 
; 484 047 EVTADR, ' Address of event parameter 
; 4485 0480 EVIEN, ! Length of event parameter 
; 486 bees NFBDSC : REF DESCRIPTOR, 

3; 487 Ht ! Byte count of data returned by NETACP. 
> 488 048 P20SC_ : DESCRIPTOR, 

; 489 84 QBFDSC : DESCRIPTOR, 

; 490 485 RECDSC : DESCRIPTOR, 

; 491 STATUS, 

; 49 TABDES : REF DESCRIPTOR, 

3 ret 4 UPDFLG; ! Data base update flag 

3; 495 90 RECDSC CDSCSW_LENGTH) = 0; nitial SR GOIRTER 

3 rs | 4 RECDSC DScSAt POINTER) = °NML$GQ _RECBFDSC COSC$A_POINTER); 

; 498 38 wu sen Tins Tans (NMLSC me Pat My NMLSC Spe: NFBDSC, DUMDSC, 0); 
3; 499 94 NMLSBLDP2 (0, .SNKADR> » NMLS$Q_P2BFDSC, P2DSC); 

; 500 95 

3 
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1 
arameter module 1e-Se -1 2:31:17 VAX-11 Bliss-32 V4. 
ING Set logging parameters 1278681 38 99330315 DISKSVMSMASTER: CNML 
ELSE 
There is no entry for this sink in NETACPs filter (EFI) database. 


Create a null permanent data base entry to which the filter info 
from the MICE command will be added. 


BEGIN 
EVTLEN = 8; 
EVTADR = 0; 
END; 
IF NOT NMLSSAVEVENTS o.90, 0G MECEF OSE COSCS$W_LENGTH), 
“EVTADR, 
RECDSC) 
THEN 
RETURN; 


Add event to record. If this fails then just return. The error message 
information will already be set up in the message block. 


iv NOT NMLSADDEVENTS (TRUE, RECDSC, .SNK, .SNKADR, UPDFLG) 
RETURN; 

IF NOT .UPDFLG 

THEN 
BEGIN 


NMLS$AB_MSGBLOCK [MSBSL_FLAGS] = MSBSM_MSG_FLD; 
NMLS$AB-MSGBLOCK [MSBS$B~CODE NMASC STS MPR: 
NMLSAB-MSGBLOCK CMSBSL-TEXT] = NML$_BADEQTUPD; 
RETURN; 

END; 


! If event field was added successfully, then update the volatile data base. 


DB = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EIT$B_DATABASE); 
SRCHKEY] = .RMLSAB_ENTITYDATA ENML $C_LOGGING, EIT$SL_SRCH_1D1); 
SRCHKEY2 = .NMLSABENTITYDATA CNML$C-LOGGING, EITS$L~SRCH1D2 

TABDES = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EITS$A_ACLTABJ; | fable for SET 


Build the Q10 buffer. 
" NMLSBLDALLDES (RECDSC, .TABDES); 
NMLSBLDSETOBF (NFBSC_FC SET, 08. 

 SRCNKEY). SNKADR, 
NML$Q_NFBBFOSC, NFBDSC, 
NML$Q"P2BFDSC, P2DSC 
NML$GO_QIOBFDSC, QBFOSC); 
Set the event information into the volatile data base. 


(cn See rate (NFBDSC, P2DSC, 0, QBFDSC) 


ones Pa 
« SRC INMLSET.B32;1 
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rameter module 16-Sep-19 4 90:34:17 VAX-11 Bliss-32 tees Page 17) 

GING Set logging parameters 14-Sep-1984 12:50:19 DISKSVMSMASTER:CNML.SRC JNMLSET.B32;1 (6) 
BEGIN 


NML$AB_MSGBLOCK MSBSL FLAGS] = 0; 
NMLSAB-MSGBLOCK [MSB$B-CODE] = NMASC_STS_SUC; 


END; 
RETURN; 
END; ! End of NML_SETLOGGING 


33 
ee 


PUPAL 
NNN NOAA 
OUSWN—O ~N 
PORTO tt 


O3FC 00000 NML_SETLOGGING: 
WORD 


Save R2,R3,R4,R5,R6,R7,RB,RI 


59 000000006 00 9E 99002 MOVAB NMLSNETQIO, RO ; | 
8 00000006 0 9E 000 MOVAB NML$GQ_QIOBFDSC, RB : 
9000000" 9E 0001 MOVAB NML$Q P2BFDSC, R7 ; 
§ 0000006 00 9€ 0001 MOVAB NMLSAB_ENTITYDATA+49, R6 : 
55 000000006 0 H 001g MOVAB NAL SAB MSGBLOCK, RS : 
5é C2 000 SUBL2 #40, SP : 
10 AE B4 00028 CLRW RECBSC > 04 
14 AE 000000006 9 D0 000 : MOVL § NMLS$GQ_RECBFDSC+4, RECDSC+4 > 0491 
E D4 000 CLRL = = (SP) : 0493 
04 AE F 00035 PUSHAB DUMDSC : 
14 AE 9F 00038 PUSHAB NFBDSC : 
4 DD 00038 PUSHL #4 ; 
1 OD Bonar PUSHL #1 § 
000000006 00 05 FB 0003F CALLS #5, NMLSGETINF TABS ; 
20 AE OF 00046 PUSHAB P2DSC > 0494 
3 DD 0004 PUSHL R ; 
E D4 00048 CLRL =(SP) F 
7E 01 ce 004D MNEGL #1, <(S : 
7E 08 AC C 00050 MOVZWL SNKADR, -(SP) 3 
7E D4 00054 CLRL = : 
000000006 00 06 FB 00056 CALLS #6, NMLSBLDP2 : 
Db 9820 PUSHL R : 0496 
08 AE 9F 0005F PUSHAB : 
28 «AE OS 0068 PUSHAB P2DSC : 
1 AE OD $2 PUSHL NFBDSC é 
69 4 F 68 CALLS #4, NMLSNETQIO 3 
Op 9 E BLBS STATUS, 2$ : 0498 
FFEFFFFO F 9 CMPL STATUS, #-16 3 
OT Ok 9007 ora 
9 50 €9 00078 1$: BLBC STATUS, 3$ + 0502 
0 04 A8& DO 00078 2$: MOVL  NML$GQ/QIOBFDSC+4, RO > 0506 
1 C 0007F MOVZWL (RO)+, “EVTLEN ; 
1 0 BRB 4 : 9502 
7¢ 3$ CLRQ = EVTADR : 051 
10 Ar OF 4$ PUSHAB RECDSC : 0521 
DD PUSHL EVTADR : 05 3 
1 pp PUSHL EVTLEN : 05 
7e 000000006 00 3c MOVZWL NML$GQ_RECBFDSC, -(SP) > 0521 
000000006 4 FB 000 CALLS #4, NMCSSAVEVENTS ; 


< 
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; Routine Size: 


295 bytes, 


7E 


00 


69 
06 


AS 


Routine Base: 


08 


000000006 


05 
23 
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5$: 


6$: 


Bee 8ebi 1S Nae ckdwGAAS Fens clo sacs ser.e32;1 


RO, 6$ 
UPBFLG 
SNKADR, =(SP) 
NK 
se 
#5. NMLSADDEVENTS 

UPDFLG, 5$ 

#4, NMLSAB_MSGBLOCK 

#5. NMLS$AB-MSGBLOCK+4 
#NMLS$_BADEVTUPD, NMLSAB_MSGBLOCK+12 
NMLSAB_ENTITYDATA+49, DB 
NMLSAB-ENTITYDATA+5O, SRCHKEY1 
NMLSAB-ENTITYDATA+54, SRCHKEY2 
NMLSAB-ENTITYDATA+84, TABDES 
TABDES 

RECDSC 

#2, NMLSBLDALLDES 

OBFDSC 

P2DSC 

Re 

NFBDSC 

NML$Q_NFBBFDSC 

-(SP) 

#1, =(SP) 

SRCHKEY2 

SNKADR 

=(SP) 

SRCHKEY1 

#35 

#14, NMLSBLDSETOBF 

OBFOSC 

-(SP) 

P2DSC 

NFBDSC 

#4, NMLSNETQIO 

RO, 7$ 


NMLSAB_MSGBLOCK 
#1, NMCSAB_MSGBLOCK+4 
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SSET NML SET parameter module 18-50 -1984 00:31:17 VAX-11 Bliss-32 V4.0-74 Page 19 
you 000 WAL _SETL L Set all logging parameters 1 730071382 99:30:15 DL SKSVMSHASTERSENML SRCINMLSET.B32:1 . (7) 
3 3 77 1 ZSBTTL “NML_SETLOGALL Set all Loaging parameters’ 
; f } ROUTINE NML_SETLOGALL (SNK) : NOVALUE = 
: 1 tee 
3 1 } FUNCTIONAL DESCRIPTION: 
: § 1 i This routine sets all permanent parameters for the specified 
: 3 ¢ ; : logging sink type into the volatile data base. 
3 * 1 fe 
; 38 2 : BEGIN 
: 595 356 
3 38 5 LOCAL 
s 39 591 ! Database ID 
; 598 39¢ SRCHKEY1, i Search key one ID 
; 599 59 RCHKEY2 ' Search key two ID 
; 600 594 SINK_NODE_PTR, ! Pointer to sink node address in NICE message. 
; 601 595 SINK_NODE_ADD, ! Sink node address from NICE message. 
3 o0e 3298 SINK_NODE_LEN, ! Length of sink node address (2). 
3 pet 4334 rape ' File id code 
: 605 599 OWNER ' Search key 
; one 00 NFBDSC : DESCRIPTOR, ! NFB buffer descriptor 
; 60 01 P2D0SC =: DESCRIPTOR, ! Q10 P2 buffer descriptor 
; 608 8 QBFDSC : DESCRIPTOR, ' Q10 P4 buffer descriptor 
; 609 0 RECDSC : DESCRIPTOR, ! Record descriptor 
; 610 04 SETDSC : DESCRIPTOR, ! Event parameter descriptor 
; 611 05 STATUS, 
5 oi¢ Bone TABDES : REF DESCRIPTOR, ' Table for SET ALL 
3 elz ee EXEC_ADDRESS; ! Address of executor node. 
; 615 609 ; Get entity information. 
; 617 0611 DB = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EI1T$B_DATABASE): 
; 618 b6t¢ SRCHKEY1= .NMLSAB_ENTITYDATA NML$C_LOGGING, EIT$C_SRCH_ID1); 
; 619 1 SRCHKEY2= Say ty ENTITYDATA_CNMLSC_LOGGING, EITSL_SRCH qoels 
; 620 14 2 FID = .NMLSAB_ENTITYDATA CNMLS$C_COGGING, e118 Fite 1b 3 
; 621 15 OWNER = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EITSW_KEYJ; 
; 6 ¢ 0616 TABDES = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EITSATALLTABI; 
; 624 0618 i The logging database is broken up into two databases - 
; 625 1 : = the Filter database (EFI) uses event filters to determine whether 
; 6 § 0 : or not a Local ty generated event is being logged and what sink 
3; 6 1 : node to send it to for logging. 
; 628 +9 § : - the Sink database (ESI) is used by the sink node receiving the event 
; 629 ; to determine if the sink type (file, console, monitor) is logging 
3 ? : ¢ : events (sink state = on). 
; ° § $ : First, set the Sink database 
: 634 é iF NOT NML_SETENTITY (NMLSC_SINK, 1, SNK, 0, 0, 0) THEN 
; ° 5 RETURN; 
; 6 1 2 | Now set the Filter database parameters. 
3; 6 § ! At this point, it is assumed that the logging permanent data base file 
; 639 ! is open. 
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NML SET parameter module 16-Sep-1984 00:31:17 VAX-11 Bliss-32 V4.0-74 Page 20 
NAL SETL L Set all logging parameters 18=366-1984 19:30:15 DISKSVMSMASTER: CNML .SRC JNMLSET.832; 1 . 3 
' 
STATUS = NMLS_STS_SUC; ! Initialize status 
KEY = 0; ! Start at beginning of file 
NALSGETEXEADR (EXEC_ADDRESS) ; 
§ i Search through the logging file for entries in the Filter database. 
9 ! There is one entry for gech sink node. From each sink node's entry, 
! extract all the event filters for the sink type ourrent’y being set. 
¢ ! Then issue a Q10 to NETACP to set the events for the sink node and 
7 ; sink in the volatile database. 
5 2 WHILE NMLSMATCHRECORD (.FID 
6 NML$GQ_RECBFOSC, 
KEY, 
8 OWNER, 
0, 8. ! No entity Length or id. 
50 0 0, ! No qualifier 
51 RECDSC) ‘DO 
5 BEGIN 
065 ! 
0654 ! Get the record owner. In the case of the logging filter database, 
3? H this is the sink node address. 
5 SINK_NODE_PTR = 0; 
$628 STATOS = RMASSEARCHFLD (RECDSC, .OWNER, SINK_NODE_LEN, SINK_NODE_PTR); 
0 i If no sink node address was found in the record then something is 
1 wrong with this record in the file. 
“ if NOT .STATUS THEN 
0664 4 BE 
0665 4 NMLSAB_MSGBLOCK CMSBSL_FLAGS] = MSBSM_DET_FLD OR MSBSM_MSG_FLD; 
4 NMLSAB_MSGBLOCK CMSBSB_CODE] _— = NMASC_STS FCO; 
0667 4 NMLSAB_MSGBLOCK CMSBSWIDETAIL] = NMASC-FOPDTL PDB; 
93 4 NMLSAB_MSGBLOCK CMSBSL_TEXT = NML$_ROSNKNOB; 
9 & RETURN; 
gent END; 
B6r¢ i Find event parameter in record. If it is not found then skip this 
Bot? : record. 
be78 SETDSC CDSCSA_POINTER] = 0; 
2 STATUS = NMASSEARCHFLD (RECDSC 
7 NMASC_P to EVE. 
a SETOST 0,32,0], 
7 SETDSC COSCSA_POINTER); 
bs IF «STATUS THEN 
i Build Q10 buffer to tell NETACP what filters to put into the logging 
: database for this sink node. 
4 BEGIN 
4 i If the sink node address in the permanent database record is zero, 
4 ' then the sink node is the executor. Find out the executor's real 
2 : address, and use that to specify the sink node to NETACP. 
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a5 


L GALL Set woTT lessine parameters 1$-$en-198 99:35:15 Disk 


; 697 91 4 SINK_NODE_ADD = .(.SINK Bn $3 -PTR)<0,16>; 

3 ¢ 35 4 IF i RODE ADD EQ O- THEN” 

3 g 95 4 SINK-NODE-ADD = .EXEC_ADDRESS; 

3 5 o3e 4 IF WAL AABDALLFIL (RECDSC, SETDSC, .SNK, .SINK_NODE_ADD) THEN 
Ret, ¢ NMLSBLDALLDES (RECDSC o TRgOES) ! Build parameter descriptors 
S. 9 NMLSBLDSETOBF (NFBSC FC SET, . 

Se. 38 o SREWRENT. 0 0 et NK_NODE_ADD, 

; 705 » SRCHKEY 

‘-? 90 WML$Q_NFBGFDSC, NirBDSC. 

Ss. 701 NML$Q~P2BFDSC, P2DS 

; , g ; ; NML$GO_Q10BFDSC, aBr6sc); 

: ey Boe Add the parameters to volatile data base entry. 

3 at 7 STATUS = eae rele (NFBOSC, P2DSC, 0, QBFDSC); 

; 71 70 IF NOT .STATUS THEN 

; 716 708 EXITLOOP; 

s 715 3444 & 3 

3 rig 710 4 END 

s fri 0711 LSE 

3 o18 O51§ STATUS = NMLS_STS_SUC; ! Reset return status 

; 720 ora KEY = .KEY + 1; ! Increment record key 

> ; Brie ' 

3; 2 071 i af — operation was successful then set up the successful response 
: 7246 0718 i mes sage. 

: 725 0719 i 

3 g $ f if “STATUS THEN 

; 728 07 ¢ NALSAB -MSGBLOCK CMSBSL_FLAGS] = 0; 

: 729 07 NMLSAB_MSGBLOCK CMSBSB_CODE] = NMASC_STS_SUC; 

et: 0724 END; 

; 731 0725 

3; 732 0726 END; ! End of NML_SETLOGALL 


OFFC 00000 NML_SETLOGALL: 
-WORD pee R2,R3 1} = ns. R7,R8,R9,R10,R11 


B G 9E 0000 MOVAB SEARCH ; 

28 099000006 6 9E ited MOVAB NALSAB. ENTITYOATALG, R10 ; 

59 000000006 : H 9019 HOVA Ne SAB MSGBLOCK, R : 
35 éA Sf OO1A MOVZBL NMLS$AB_ENTITYDATA+49, > 0611 
& 1 AA 09 01D MOVL NMLSAB“ENTITYDATA+50, OO CHKEY! : d61¢ 

é 5 AA 021 MOVL  NMLSAB™ ENTITYDATA+34, SRCHKEY2 > 061 

FB OAAsO9A 0 2 MOVZBL NMLSAB~EN TITYDAT FID > 0614 
3 FE AA ¢ MOVZWL NALSAB AB-EN TTVpATASG?: OWNER > 0615 
54 23. —OAA p D MOVL  NMLSAB-ENTITYDATA+84, TABDES : 0616 
a nt hen 

04 AC OF PUSHAB SNK F 

01 pd 000 PUSHL #1 : 


oO 


NALSSET NAL SET parameter le 
yor~000 WML _SETLOGALL Ser nett logging parameters 
00000000v 9 
1 
52 
04 
000000006 00 1c 
$0 
000000006 
000000006 00 
03 
08 
08 
10 
28 
$8 
18 
69 
04 Ad 
08 
0c A9 000000006 
18 
+ 
7 86 
28 
‘ 
10 AE 08 
10 AE 
10 
Of 
28 
00000000v 90 
D 
20 
000000006 00 ‘ 
oem 
000000 
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VAX-11 BL les -32 V4.0-7 


DISKSVMSMASTER: NMC SRC NMLSET.B32; / 


2 
wi NML_SETENTITY 
RO, 1$ 

#1, STATUS 


NMLSGETEXEADR 
sc 


K 

NML$GQ_RECBFDSC 

#10, _NMLSMATCHRECORD 
RO, 3$ 


SINK_NODE_PTR 
SINK-NODE-PTR 
OuNER =LEN 


DSC 
a 7 le 
STATUS 


SETDSC+4 
SETDSC+4 


SE 1DSC 
#201, -(SP) 

RECDSC 

#4, NMASSEARCHFLD 

RO, STATUS 

STATUS, 6$ 

@SINK_NODE_PTR, SINK_NODE_ADD 


5$ 
ee ADDRESS, SINK_NODE_ADD 
NK-NODE _ ADB 


¢ 
NML_ADDALLF IL 
RO 7$~ 

ABD DES 

Recs RAL SBLDALLDES 
QBFDS 

NAL $GG_Q1OBFDSC 


NML$Q_P2BFDSC 
NFBDSC 


< 
os 
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SSET NAL SET poroneter mo 15-50 Sep-1 VAX-11 Bliss-32 v4.0 e 23 NM 
¥O4~000 NML_SETL LBGALL Set ott logging parameters =3007 1382 99: 30:15 DISKSVMSMASTER: CNML. SRCINMLSET. 832;1 rue 3 vo 
00600000' 90 + of ruse wiSP)- NFBBFDSC F 
7E 9 cE 1 MNEGL ate 3; 0699 
6 BD 1 PUSHL sri : 
34 OA F 1 PUSHAB SINK. aise ADD 3: 0697 
43 D4 001 CLAL 3 
DD 0011 PUSHL SRCHKEY1 3; 0698 
$ DD 0011 PUSHL 0 3; 0697 
DD 0011 PUSHL #35 : 
000000006 00 E FB 00116 CALLS #14, NMLSBLDSETOQBF : 
24 AE 9F 0011D PUSHAB QBFDSC + 0706 
7E pe 1 RL -(SP) é 
34 AE F 1 PUSHAB é 
40 ry) oF 1 PUSHAB NFBDSC é 
000000006 9 FB 001 CALLS #4, NMLSNETQIO 3 
0 Oo ot F MOVL RO, SATS Z 
0 § E 1 ¢ BLBS TATUS, 7$ ; 0707 
09 11 4 SRB 3; 0708 
52 01 00 00137 gs: MOVL an STATUS : 0712 
046 AE BS QO13A 7$: INCL KEY 3: 0714 
FFI 1 3 D BRW es : 0645 
06 52 €9 bes 8$: BLBC STATUS, 9$ ; 0720 
6 D4 0014 CLRL SS MSGBLOCK Z o7s¢ 
04 A9 01 90 00145 MOVB . NMCSAB _MSGBLOCK+4 3; 072 
04 00149 9$: RET 3; 0726 


; Routine Size: 330 bytes, Routine Base: S$CODE$S + 0201 
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ZSBTTL "NML_ADDALLFIL Add all Logging fi 
ROUTINE NML_ADDALLFIL (RECDSC, SETOSC, SN 
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FUNCTIONAL DESCRIPTION: 
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13 
b-Sep-1984 00:5: 
lte 
K, SNKADR) = 


This routine adds all permanent filters to the volatile filters 
for the specified sink type and sink node. 


FORMAL PARAMETERS: 
RECDSC Descriptor of permanent data base record. 
SETDSC Descriptor of existing event parameter. 
NK Logging sink type. 
SNKADR Sink node address. 
IMPLICIT INPUTS: 
NMLSGB_EVTMSKTYP . 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
* 
' 
. 
' 
. 
' 
. 
! 
. 
' 
. 
) 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
i] 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 


NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
RECDSC : REF DESCRIPTOR, 
SETDSC : REF DESCRIPTOR, 
SNKADR : RD; 
LOCAL 
SC : REF DESCRIPTOR, 
TDSC : DESCRIPTOR, 
EVEDSC : DESCRIPTOR, 
EVTPTR : REF BBLOCK 
NFBDSC : REF DESCRIPTOR, 
20SC_ : DESCRIPTOR, 
SRCPTR : REF BBLOCK, 


STATUS; 


If there is an entry in the volatile data base then update it with the 
! permanent data base information. If no entry exists then create one. 


SSET NML SET parameter module Sep-1984 1:17 VAX=11 Bliss-32_V Pa 5 NM 
vat NML_ADDALLFIL, Add all logging filters 1§-$ep-1964 Hoe S StAlSteRe clon seeSumser.es2:1° 2 chs vo 
: 64 i ¢ Get the sink's entry in the volatile data base, if there is one. ; 
; 498 7 NML$G GETINF TABS (NAL $¢ CLOGGING, wit $C VENTS, NEBDSC. DUMDSC, 0); ; 
: 7946 7 NMLSBLDP2 ( Q P BFDSC 2DSC); $ 
; 795 f eTaTOs. = wniénétaion¢ ‘wrBbSe” itt Brn $ca _Q10BF DSC); ; 
: 79 IF .STATUS : 
: 798 79 THEN 3 
: 799 136 BEGIN : 
; 801 79% i Convert the volatile date base information into permanent data : 
3 ¢ 795 ' base vormet. The filters from the permanent data base will be " 
: Oe ie added to this. : 
; 05 m8 EVEDSC DSCSW_LENGTH] = .(.NMLSGQ QIOBFDSC COSCSA_POINTER])<0,16>; : 
3 0 EVEDSC LDSCSA ~POINTER) = NMLST _PRABUF FER; : 
; 808 601 CHSMOVE (.EVEDSC coscsw LENGTH : 
; 809 ; .NML$GQ_QI0BFDSC Uesceh. POINTER] + 2, : 
: 19 rit EN NML T SORNG FFER); ‘ 
; 12 805 ELSE : 
: i oat BEGIN : 
; 15 0808 IF ,STATUS EQL NML$_STS_CMP : 
Py BO eesIn 
: th Bag 4 i Since there was no entry for the sink in the volatile data base, ; 
, $y 81 4 i create a null permanent data base entry to which the filters : 
; 821 Bate ? from the permanent data base will be added. : 
; : 0816 4 EVEDSC CDSC$W_LENGTH] = 0; 

3 ¢ rs tf4 2 EVEDSC CDSCSA_ POINTER] = NML$T _PRMBUF FER; 

$ O81 5 evsee” 

; 8 o8 1 RETURN .STATUS; 

; : : § ' END; 

; 3 825 i No 90 through the permenent data base record for this sink node and 

3 8 § ' add the sink’s filters to the volatile data base filters (which are now 
: $e i in permanent data base format). 

; i 8 : ; StATus = = NMLS_STS_PMS; 

; 38 1 OHILE NMLSGETNXTSNK (. SETDSC, .SNK, SRCPTR) DO 

: ? ; : STATUS = NMLS$_STS_SUC; A Least one new filter was found for 
3 ' sink. 

3 835 ! 

; $ ; : Each event source type is handled differently. 

: 845 : 3 . SELECTONEU .SRCPTR CSRC$B_SRCTYPE) OF 

3 $ B20 SET 
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NML SET parameter module 18-5¢ 1984 00:31:17 VAX-11 Bliss-32 V4.0-74 P 6 
NML_ADDALLF IL Add all logging filters 1 mH 1 99:30:19 DLSKSVMGMASTERSENML SRCINMLSET.B32:1 thes BS 
1 Cree ENT IR NMASC_ENT_LIN, ! Circuit, Line or 
; NMASC NT=MOD4: i Module source 
4 ENTDSC CDSC$W_LENGTH] = .SRCPTR $RC$B_ 1D) ENGTH]: ™ 
‘ te DSCSA_POINTER] = SRCPTR LSRC$T_IDJ; 
rk CNMASC_ENT_NOD): ! Node source 
84 BEGIN 
sey ENTDOSC COSCSW_LENGTH) = 0; 
B3¢ ENTDSC DSCSA_POINTER] = .SRCPTR CSRC$W_NODADRI; 
854 COTHERWISE): ! Null source 
855 BEGIN 
528 ENTDSC CDSCS$W_LENGTH) = 0; 
89 ENTDSC CDSCSA-POINTER] = 6; 
639 TES; 
861 NMLSGB_EVTMSKTYP = 0; ! Set to add individual filters 
£66 EVTPTR = Fi 
86 WHILE NAL GETNXTEVT (.SRCPTR, EVTPTR) DO 


3 


oo 
o 
w 

eee ee ee et tt tt ot ot tt tt ot tt re rr re 


! Add all the SET filters. 


STATUS = NMLSADDFILTERS (1, 
NMLS$Q_PRMBFDSC, 


. SNK 
“SRCPTR CSRC$B_SRCTYPE), 
NTDSC 

EVTPTR CEVT$W_CLASS), 
EVTPTR CEVT$Q_LOGMSK), 
EVEDSC); 


If that was successful then add all the CLEAR filters. 
; IF .STATUS 


STATUS = NMLSADDFILTERS (0, 
NML$Q_PRMBFDSC, 


. SNK 
“SRCPTR CSRC$B_SRCTYPE), 
NTDSC 

EVTPTR CEVTSW_CLASS), 
EVIPTR CEVT$Q_FILTERMSK), 
EVEDSC); 


DOOCOOCOOCOOCOSOOOOOOSCOOSoOoOOoOoCSoO 
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IF NOT .STATUS 

THEN 
BEGIN 
NMLSAB_MSGBLOCK [MSBSL_FLAGS) 
NMLSAB"MSGBLOCK CMSB$B~CODE 
NMLSAB"MSGBLOCK CMSBSL~TEXT 


MSBSM_MSG_FLD; 
NMASC”STS~MPR: 
NML$_BADEVTUPO; 
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SSET NML SET parameter module Sep-1984 VAX-11 Bliss-32 V4.0-74 p 7 
rivet tt NAL_ADDALLFIL Add all logging filters 12: 3007138 99: 3hi] DISKSVMSMASTER:CNML. Sec SNM. SET.832:1 _ B 
; 5 H RETURN .STATUS; 

; END; 

; END; 

: : END; 

: 911 i If the gormenent cote base filter record contained at least one event 
3 aig ! filter for th ‘ he 

; 91 ' store the modified filters in the tenporacy data base record. If there 
: 916 ! were no filters for the sink, no update will be done to the volatile 
: gi? } data base. 

; 319 "IF .STATUS THEN 

3 318 STATUS = NMLSSAVEVENTS (. m GQ_RECBFOSC Lesce LENGTHI, 

; 91 -EVEDSC COSCSW_LENGTH 

; 920 “EVEDSC DSCSA~ “b5INTERS, 

3 Per eRECOSC); 

; 9 ¢ RETURN .STATUS 

; 9 END; ! End of NML_ADDALLFIL 


O7FC 00000 NML_ADDALLFIL: 
WORD 


a Save R2,R3,R4,R5, ahs. R7,R8,R9,R10 ; 0728 
SA 900000006 00 9€ 00002 MOVAB NMLSADDFILTERS, : 
59 000000006 00 9€ 00009 MOVAB NMLS$AB_MSGBLOCK, "3 ; 
38 00000000' 00 9€ 00010 MOVAB NALST _PRMBUFFER, R8 ; 
57 00000000" 0 H 0017 MOV mabe PRMBFDSC, R7 : 
5E ; C2 OO001E SUBL ; 
—E D4 00021 CLRL = : 0786 
04 AE 9F 00023 PUSHAB sis) ; 
OC AE 9F 00026 PUSHAB NFBDSC ; 
04 DD 00029 PUSHL #4 ; 
1 DD 00028 PUSHL #1 : 
000000006 00 5 FB 00020 CALLS #5, NMLSGETINF TABS ; 
10 AE 9F 000 PUSHAB + 0787 
10 A? 9F 00037 SHAB NML$Q_P2BFDSC ; 
7 04 OOO3A CLRL -(SP é 
7E 01 CE 0003C MNEGL #1, -(SP) : 
7é 10 AC C sf 4 MOVZWL SNKADR, -(SP) § 
7E 04 00043 CLRL (SP) ; 
000000006 00 6 FB 0045 CALLS #6, NMLSBLDP2 : 
000000006 OF ag PUSHAB NAL $GQ_ QIOBFDSC : 0788 
E 04 Bee CLRL -(SP) 3 
18 AE 9F 00054 PUS P : 
1 AE DD 00057 PUSHL NFBDSC ; 
000000006 90 F SA CALLS #4, NMLSNETQIO : 
: 0 D 1 MOVL RO sat § : 
1 6 € BLBC — STAT 3 > 0790 
50 000000006 09 7 MOVL NM $e0" QIOBFDSC+4, RO : 0798 
18 AE 6 $ MOVW (RO), EVEDSC 3 
1 AF 6 MOV NMLS$T_PRMBUFFER, EVEDSC+4 : 0799 
68 0 A 18 A 7 MOVC EDSC. 2(RO), NMLS$T _PRMBUF FER : 0801 
1 7¢ BRB ; 9790 
FFFFFFFO 8F 56 Dl 7E 1$: CMPL STATUS, #-16 ; 080 


Ne 
Page 28 vc 
13 “11 Bliss-32 V4.0-74 , 5 

dule 18-50-1984 10 abi1d  DLSKSUMGHASTERSCWMC SRCINMLSET.832:1 ; 

mo - = . . : ; 

vOs=000 NAL_ADDALLFIC Add" a(t Logging filters ec 3 - 
1" 03 8 : ; 
OOEC if ; a F EVEDSC SC+4 : O81 : 

Bie Bathe ieee remuren, eve fel | 

“= gh cE } 38: MNEGL #58, STA : 0831 : 

5 AE 94 BUSHAB  SRCPTR ; : 

? AC 7D 0009A CALLS aS. Na SGE TRXTSNK 

0000006 a 5 5 A BLBS + 0833 : 

“ oar’ BT O00A8 rn Ce ‘ STATUS ; 0838 : 

Ft 4 OOAE ro MOVL rCPTR, R = ons ; 

; Be NS Oe ton ROVZBL $(R2).'RO : 084 

; a y $1 00086 CHB RO, ; 

0 A 43 00089 ee ORD. 3 : ; 

3 50 91 00088 Bissu 78" ° ; : 

0 11 1F 0008 CMPB RO, #4 : : 

os de ta 000E SC yiby 4tR2). ENTDSC : Oaas : 

04 AZ 9B 000C5 6s ROVABY S(RDD. ENTDSC#4 : 0838 : 

ae OE 05 AS i dooce aro 38 Nee 

40 5 00051 7S a : 0850 : 

OA 12 00003 ay ENTDSC : 0851 : 

be AS Se ooobe NOVZUL 4(R2), ENTDSC +4 : 0838 

24 «AE ae ODD BRB > 0857 : 

0 AE BA OOODE &$ ait Halle + : 0861 : 

4 AE D4 000E2 ELRS = NIMLSGB, EVTMSKTYP i 0868 : 

000000006 00 94 QOOES 98 | + ge ; 

OS OS Set ces,  fuctan vipra : ; 

OC A 3 OOEE 108: R ; : 

52 DD O00F! CALLS #9, NALSGETNXTEVT : 

000000006 00 35 £8 SoorA BLBC = R : 4$ : 0875 : 
6 18 He oF 000 ADDLS” #4. EVTPTR, ~(SP) ; 

7E 10 AE $8 ie 8183 perth @EVTPTR, -(SP) 0868 , 
40 RE 8F 00108 MOVIBL StROd. =(SP) ; : 

2 OM Mm ie PUSHL SNK : $898 ; 

re oc AC 3 \ PUSHL R7 2 067 ; 

1 DD OOtt CALLS #9, NMLSADDFILTERS Pp : 

9 FB 00119 MOVE. RO. STATUS : 0880 : 

56 é 6 OIF LBC STATUS, 118 5 we : 

. 18 AE oF 8158 ADDLS” AAS. EVTPTR, ~(SP) 

7e = = 88 5D OO19A MOVIUL BEVTPTR, -(SP) ; 0882 : 
7e 30 3 6 PUSHAS BM (SP) : : 

Ss & MOVZBL 3(R2), - 2 oss : 

Ae 9A 001 SNK : 0 : 

7e i AC pp i q PUSHE Rr, : 088 
E D4 0013¢ CLRL 


iva to NAL ABDALEF IC “hdd ott Logging filters 1$-ep-1964 99:34:15 DL RSVMSHASTERSEWME SRC NMLSET.832;1 eee B 


22 


ga F 13 CALLS , NMLSADDFILTERS : 
: dO 001 MOVL RO, STAT : 
EB 00144 BLBS ee $. £0891 
Br Ohica pats + Nat Wat SAB“ MS CoL Ore +6 : B89 
ge | een F p 1 MOVL Bats BADEVTUPD, NMLSAB_MSGBLOCK+12 : 38 
E 1 BRB ; 78 
1B E9 00158 128 BLBC STATUS, 13$ : 091 
AC 00 00158 PUSHL  RECDSC > 0914 
AE DD 001 PUSHL  EVEDSC+4 + 0915 
oooo00s0c 08 36 bole MOViut MMCSeGRECRFDSC, =(SP) : bo1f 
000000006 s 4 FB O16 CALLS #4, NCS SAVEVENES : 
0 00 001 MOVL RO, STATUS ; 
} 6 00 00176 13$:  MOVL STATUS, RO : 0915 
04 00179 RET + 0916 


; Routine Size: 378 bytes, Routine Base: SCODES + 041B 
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SET parameter module 1b-se -1984 00:31:17 VAX-11 Bliss 
Seren T Set volatile database parameters 12-808-1 382 90: 35315 DISKSVMSMAST 
ZSBITL "NML_SETENTITY Set volatile database peceneters” 
ROUTINE NML_SETENTITY (ENTITY pag LEN, ENTITY_ADR, 
QUAL_PST, QUAC_LEN, QUAL_ADR) ‘= 
'e4 
FUNCTIONAL DESCRIPTION: 
i This routine adds the specified parameters to the volatile data base 
entry for the specified component. 
FORMAL PARAMETERS: 
i NTITY Entity type code. 
; ENTITY_LEN Byte count of entity id string. 
; ENTITY_ADR Address of entity id string. 
! QUAL _PST Qualifier's Parameter Semantic Table entry address. 
: QUAL_LEN Byte count of qualifier id string 
} QUAL _ADR Address of qualifier id string 
i 
i ROUTINE VALUE: 
} COMPLETION CODES: 
; The translated status of the SET Q10 is returned. 
BEGIN 
LOCAL 
° ! Database ID 
srchkeyl, !' Search key one ID 
srchkey2, ' Search key two ID 
detail : WORD, ! NICE error detail code 
fid, ' File id code 
key, 
owner, ' Search key 
nfbdsc : DESCRIPTOR, ' NFB buffer descriptor 
pedsc : DESCRIPTOR, ' Q10 P2 buffer descriptor 
abfdsc : DESCRIPTOR, ' Q10 P4 buffer descriptor 
recdes : DESCRIPTOR, ' Record descriptor 
status, 


dummy , 
tabdes : REF DESCRIPTOR; 
status = nml$_sts_suc; 
; Get entity information. 
= .nml$ab_entitydata “frentity. ett databa 


db se];! 
srchkey! = .nml$ab_ent enti eit$l_srch id); ' Search key one 
‘* 


i 
srchkey2 = ofa Sad ong it yeete Ong reve @tiet srch ; | Search key two 


' 
detail = .nml$ab_éntitydata C.entity, w_detail); ! NICE error detail 
fid = .nml$ab_entitydata [.entity, eit$b_fileidjJ; |! File id code 
owner = .nml$ab_entitydata [.entity, eitSw_key); ! Search key 
tabdes = .nmlSab_entitydata C.entity, eit$Sa_alltab]; ! Table for SET ALL 


i If no parameters were specified in the NICE message then all parameters 


33 
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D 14 
NAL SET parameter module 16-Sep-1 2:31:17 Vv 
WAL _SETENTITY Set volatile database parameters 12-8001 382 99:20 19 Dd 


s 
Ss 


: r } from the permanent data base should be used. 
7 if .nml$gl_prs_flgs Cnmi$v_prs_all] THEN 
985 Z eeciA sett — 
3 7 i Find a porceners data base — for this entity. If one is not 
o58 , found then create a descriptor for a null record. 
; if .fid NEQ mma$c_opn_node THEN 
BEGIN 
key = 0; 
5 IF NOT mmlSmatchrecord (.fid, 
nml$gq_recbfdsc, 
: key, 
8 owner, .entity_len, .entity_adr, 
89 -qual pst. -qual_len, .qual_adr, 
recdsc) THEN 
64 BEGIN 
: i If no data base record was found for a logging sink then 


; 


! just return. This check avoids extraneous error messages 
' as the result of the NCP SET KNOWN LOGGING ALL command. 


gat tty EQLU nml$c_sink THEN 
RETURN nml$_sts_suc; 


! 

IF 

‘ 

} NICE does net differentiate between 
} 

i 

i 

i 

i 


oo 
3 
uw 
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PEFR BBE EEE BENOIT UTTUTUTUTUTON BS BP BP BS 


Seesesseeigeegessess 


Ss 


T entity abc 


If entity is X25-Protocol network 
NICE command. So, get the network name from the permanent data 
base record, and set it up as the entity ID for the Q10. 


if .entity EQLU nml$c_prot_net THEN 
status = nma$searchfld (recdsc, .owner, entity_len, entity_adr); 


10 b0¢ and 
11 00 SET ont ity abc ALL 
\ 004 However, some entities require at least one other parameter 
1 005 (objects must have a number). So, for entities with are not in 
14 B06 the perm database, assume that it’s simply a SET command unless 
1? e } the entity has a required parameter. 
3 00 IF .entity EQLU nml$c_object THEN 
18 status = nal$ st s_cmpi 
19 recdsc Cdsc$w_length] = 6; 

0 recdsc Cdsc$a_pointer] = .nml$gq_recbfdsc Cdsc$a_pointer] + 

2 nal$k_perm_keys_ len; 

4 

5 


be ss 2 


FW" OVOnNOulwnr—O0@ 


E 
ELSE | 


i The ISAM ey structure for the node permanent database is different 
; so it will be faster (it can be much bigger than the others). 


BEGIN 
IF NOT nml$readrecord (.fid, owner, entity_len, 
nml$gq_recbfdsc, recdsc, dummy) THEN 


a et a ea a a ad = od 2 = = = = 2 2 = 


SOOOSSOSOCOOSSSOOSSOOOSOOOOoCoOoooooo 


Sue Mm wooo 


ame ee ee aed ow od = od od = = = 


COSCO OOSCOOCOCOOOOOOOoooO 


Wronononofonofononofry 


SOOONOM 


f no entity ID was supplied with the 


vOL=060 


3 7 
3} 
; 1 
3; 1 
37 
3% 
3 
37 
3 7 
3} 
3 
3 1 
3 7 
3 3 
3 7 
3 7 
3 7 
3 7 
3 7 
3 7 
3 7 
3 
3 7 
3 1 
3 1 
3 7 
3 7 
3 7 
3 7 
3 7 
3 3 
3 7 
3 3 
3 7 
3 7 
| 
3 7 
3 3 
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TY Se oestetite database parameters 1$-Sep-1944 99: 3):15 


status = nml$_sts_cmp; 
END; 


Using the SET ALL parameter List (in NMLDAT) for this entity, build 
oe, © pareneter descriptor list in the form generated by the NPARSE 
i _ 


if .status THEN 
ae nmlSbldalldes (recdsc, 


VAX~1 
DISKS 


X~ 
SK 


-tabdes); ! Build descriptors 


+ -pserus EQL nml$_sts_cmp THEN 

nml$ab_msgblock E[msb$l_flags] = msb$m_det_fid; 
nml$ab_msgblock (msb$w_detail] = .detaTl; 

nal Sab_ ~msgblock [msb$b_code] = neste _StsS_cmp; 
RETURN nml($_sts_cmp; 

END; 

«Status THEN 

" “aeGiN 


; , aoe the parameters to volatile data base entry. 


earchKeyy, RHC len, sent ity. adr, 
sremere -qual_ on. -qual_adr, 
nat san} bbtdsc. f bdsc, 
nml\$q_p2bfdsc, Bi. 
nal $g 99. ngiobfdéc, ab tise) 

nfbdsc, pédsc , abfdsc); 


status = nml$netqio 
IF “Bsotus THEN 


BEG! 
nm $ab_msgblock poety flags] = 0; 
gol Sen =msgblock Cmsb$b_code] = nma$c_sts_suc; 


RETURN s states 


! End of NML_SETENTITY 


O7FC 00000 NML_SETENTITY: 
WORD 


0 Save R2,R3,R4,R5,R6,R7,RB,RI,R10 
5A 000000006 00 9E 0000 MOVAB NML$GQ_RECBF psc. R16 
59 000000006 00 9€ 000 MOVAB NMLSAB~MSGB f Ork Rg 
58 000000006 00 9 019 MOV NAL SAB “ENTITYDATASS, RB 
3E . ¢ 1 SUBL2 #44, SP 
1 D 1A MOVL. #1, STATUS 
04 AC 1 MULL3 #44, ENTITY, RO 

5 684 a 00 MOV ZBL NAL §AB_ENTITYDATA*5ERO}, 0B 

01 A840 OF PUSHAB NMLSAB-ENTITYDATA+6 
56 9 po A MOVL (SP)+> SRCHKEY 

05 A840 9F D PUSHAB NMLSAB_ENTITYDATA+10CROJ 
55 9 0 1 MOVL a (SP)+7 SRCHKEY2 

FC A840 OF PUSHAB NMLSAB_ENTITYDATA+1(ROJ 


nme 
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so WML _SETENTITY Set volatile database parameters 122808-138e 99:30:15 DISKSVMSMASTER: CNML.SRCJNMLSET.832;1 — a 
34 9€ B80 VW a(SP)+, DETAIL : 
1 FB Ag A MOVZBL NBL $AB_ENTITYDATACROJ FID : 09 9 
FE A840 9F 0004 PUSHAB NMLSAB-ENTITYDATA*+3LROJ + 0970 
08 AE 3 C 00044 MOVZWL @(SP)+> OWNER : 
23 A840 9F 00048 PUSHAB NMLSAB_ENTITYDATA+40(RO] + 0971 
53 se HY 4C MOVL @(SP)+> TABDES : 
03 000000006 00 0 : 4f BBS #1, NMLSGL_PRS_FLGS, 1$ : 0976 
00 ‘ 1 00 27 BRW 7$ : 
2 b 0 A 18 TSTL = FID + 0982 
4 O9¢ BEQL)«=s«S$ : 
6— 04 0005 CLRL —iKEY + 0984 
OC AE OF 906 PUSHAB RECD : 0985 
7E 14 AC 7D 0006 MOVQ  QUAL_LEN, -(SP) + 0989 
7E OC AC 7D 0006 mMOVa ENTITY AOR, -(SP) : 0988 
08 AC DD 00068 PUSHL ENTITY“LEN : 
AE 0D 0006¢ PUSHL OWNE : 
1C AE 9F 000 PUSHAB KEY : 0985 
0402 8F BB 00074 PUSHR #*M<R1,R10> : 
000000006 00 A FB 90078 CALLS #10, NMLSMATCHRECORD : 
1C 0 €8 0007F BLBS : 
02 04 AC D1 00082 CMPL NTITY, #2 : 0997 
04 if 00086 BNEQ : 
50 01 D 00088 MOVL #1, RO : 0998 
04 00088 RET : 
08 04 aC D1 0008C 2$ CMPL NTITY, #8 + 1009 
03 12 00090 BNEQ : 
52 10 CE 0009¢ MNEGL #16, STATUS + 1010 
0c AE B4 00095 3$ CLRW RE COSC : 1011 
10 AE 04 AA 02 C1 00098 ADDL3 #2, NMLS$GQ_RECBFDSC+4, RECDSC+4 : 1012 
OE 04 AC 01 O009E 48 CMPL ENTITY, #1% + 1020 
35 12 OOOA BNEQ 6 : 
Oc AC 9F D00A4 PUSHAB ENTITY_ADR + 1021 
08 AC 9F 000A7 PUSHAB ENTITY “LEN ; 
10 AE DD OOOAA PUSHL OWNER : 
18 AE 9F OOOAD PUSHAB RECDSC F 
000000006 00 04 FB 9080 CALLS #4, NMASSEARCHFLD ; 
52 50 pO 0008 MOVL RO, STATUS : 
1D 11 OOOBA BRB 6$ : 0982 
04 AE 9F OOOBC S$: PUSHAB DUMMY + 1029 
10 AE 9F O00BF PUSHAB RECDSC F 
5A DD 000C2 PUSHL R10 : 
08 AC 9F 000C4 PUSHAB ENTITY_LEN : 
18 AE 9F 000C7 PUSHAB OWNER : 
1 DD 9 CA PUSHL FAD F 
000000006 99 6 FB CC CALLS #6, NMLSREADRECORD ; 
Q E8 0000 BLBS RO, 6 : 
2 10 ce 9006 MNEGL #16, STATUS : 103) 
0c 2¢ a Op 63: BLBC STATUS, 7$ : 1038 
pp oc PUSHL TABDES : 1039 
10 AE 9F OOODE PUSHAB RECDS¢ : 
000000006 90 Q FB oe! CALLS #2, NMLSBLDALLDES ; 
FFFFFFF F : p oes 7$: CPL TATUS, #-16 + 1042 
69 oe 06 8 Fl MOVL #§ #2, NMLSAB_MSGBLOCK + 1044 
08 Ag 4 : F4 MOVW DefalL. NMCSAB_MSGBLOCK+8 > 1045 
04 Ag 08 E 000F8 MNEGR # NAL SAB _MSGBLOCK*4 ; 1046 
50 10 CE O00FC MNEGL #16, R > 104 


; Routine Size: 
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18-Sep-19 
-seo- 
1e-886-19 


mm 


T perenrser module 
TLINE Set volatile Line parameters 


a5 


GLOBAL ROUTINE NML 


~ 
—Owo 


'¢ 


* 
FUNCTIONAL DESCRIPTION: 


entry for the specified 


support for wildcards in the line id. 
FORMAL PARAMETERS: 


rerereeercrerteeee 
SSBLRMP UH OOOO 


ZSBTTL san SSETL ING Set volatile Line parameters' 
SETLINE (ENTITY, LEN, ADR) : NOVALUE = 


a 13:50: 


17 X-11 Bliss-32 
19 DISKSVMSMASTER 


This routine adds the snegt tied poreneters to the volatile data base 
cif Line. This routine will eventually provide 


NMLSSETLINE, Save nothing 
LEN, =(SP) 


ENTITY 
#3, NMLSSETENTITY 


1 1 1 
1 1 1 
1 1 1 
1 1 1 
1 1 1 
1 1 1! 
1 1 1! 
1 1 1! 
1 1 1! 
1 1 1! 
1 10 1! 
1 8 1! 
1 1 1! ENTITY Entity type code. 
1 10 1} LEN Byte of Line id string. 
; 13 : ADR Address of Line id string. 
1 10 1 ! IMPLICIT INPUTS: 
1 10 1! 
1 10 1! NONE 
1 10 1! 
; 1° : } IMPLICIT OUTPUTS: 
1100 1091 1! NONE 
1101 194 1! 
1108 1093 1 ! ROUTINE VALUE: 
11 1094 1 ! COMPLETION CODES: 
1104 1095 1! 
1105 1096 1! NONE 
1106 1097 1! 
1107 1098 1 ! SIDE EFFECTS: 
1108 1099 1! 
1109 1100 1! NONE 
1110 1101 17! 
1111 1198 1 !-- 
1316 1105 1 
111 1104 BEGIN 
1114 1105 4 : 
13h2 1198 : Call normal entity routine to handle Line parameters. 
1419 1108 NMLSSETENTITY (.ENTITY, .LEN, .ADR); 
1118 1109 
1119 1110 #1 END; ! End of NMLSSETLINE 
0000 00000 ENTRY 
7E 08 AC 7D 00002 MOVQ 
04 AC 0D 00006 PUSHL 
F906 CF 0 FB Bane CALLS 
04 Q000E RET 


Routine Size: 15 bytes, Routine Base: SCODES + 06EC 


alae Pa 
: CNML.SRCIJNMLSET.B832;1 


35 
(10) 


14 
SSET NAL arameter module 1h-Se -19 2:31:17 VAX-11 Bliss-32 V4.0-74 Pa 36 NM 
yor~000 NAL EXECUTOR Set executor parameters 12-8 08- 138 ERE DLEKSVMGMASTERSCWL SRC INMLSET.832;1 9 47) vo 
: 1121 1 ZSBTTL "NMLSSETEXECUTOR Set executor parameters’ ; 
3 1 § : GLOBAL ROUTINE NMLSSETEXECUTOR (ENTITY, DUM1, DUM2) : NOVALUE = : 
> 1126 1 Lee 
$ 1 5 : FUNCTIONAL DESCRIPTION: : 
: 11 ; 1 i This routine adds the specified parameters to the volatile data base ‘ 
3 i | H entry for the executor node. : 
: 1130 '. FORMAL PARAMETERS: ; 
: 1138 1 ENTITY Entity code. ; 
3; 11 1 ; DUM] Not used. ‘ 
3 i ¢ : DUM2 Not used. : 
; i { IMPLICIT INPUTS: 
P13 i a : 
> 1140 1 i IMPLICIT OUTPUTS: ; 
3; 1161 1 ‘ : 
2) Se 2 ee : 
> 1144 1 i ROUTINE VALUE: 
3 1362 : COMPLETION CODES: : 
21 a 2 0D 3 
> 1149 1 i SIDE EFFECTS: : 
; 1150 1 : 
F} W332) : NONE : 
ue HE TE : 
; 1135 _ BEGIN ; 
: 1189 1 i If mo parameters were specified in the NICE message then all parameters : 
; 1338 : from the permanent data base should be used. : 
; 1160 ; IF _<NALSGL_PRS_FLGS CNMLSV_PRS_ALL] ; 
; 1168 1 NML_SETEXEALL () 3 
3; 116 1 ELSE 3 
: 1164 NML_SETEXE (); i 
> 1166 1 END; ! End of NMLSSETEXECUTOR 
0000 80008 -ENTRY WAL SSETEXECUTOR Save nothing s 79 
08 484i 6° 01 €1 0 #1, NMLSGL_PRS f . ; V2 
0000CV 00 00 fe 's ners #0, NML_SETEXEALL : 11 
00000v 00 00 FB 00012 1$: CALLS #0, NML_SETEXE > 1154 
-_ 04 85 RET : 1186 


a 
Sn 


SESSPSSSESSRSSE ANAS ASSISTS 


tt nd a a a =» 2 — 2s a 2 = SS 2 Ls 9) 2 
a a nt at ss = a a a ts a bs — 5 as a is ts ss a td a 


; Routine Size: 


3 1199 


K 14 
NML_SET parameter modul 16-Sep-19 1:31:17 - VAX-11 Bliss-32 V4.0-74 Page NA 
NMLSSETK Set volatile entity parameters 13-808- 1382 90:35:15 DISKSVMSMASTER: CNML.SRCJNMLSET.B32;1 . a3 vO 
ZSBTTL "NMLSSETKNOWN Set volatile ong ity pereneters. 
GLOBAL ROUTINE NMLSSETKNOWN (ENTITY, ENTITY_LEN, ENTITY_ADR, 
pum’, pum4,~DUMS) : NOVALUE ‘= 


'e¢ 


FUNCTIONAL DESCRIPTION: 


This routine sets the specified parameters for each of the components 
of the given entity type. 


i 
i 
! 
FORMAL PARAMETERS: 
i ENTITY Entity type code. 
; Byte count of entity id string. 
i 


ITY_LEN 
s ADR Address of entity id string. 
= DUMS Not used. 


BEGIN 


i If this no parameters specified then add all permanent data base information 
: to volatile data base. 


if ;NMLSGL_PRS_FLGS CNMLS$V_PRS_ALLJ 
NML_SETKNOWNALL (.ENTITY, .ENTITY_LEN, .ENTITY_ADR) 


SESERESS IANS ees SOROS See 


= PROPOPOPIPOPUPONONNUNY 2 2 es 


fk a a a ts dw 2 a a dt Ss a ss tb tt a 
tS us a 2 tb 2 2 a a be bd 4 2b a tb 2d 2 tt tk 


ELSE 
NML_SETKNOWN (.ENTITY); 
END; ! End of NMLSSETKNOWN 

OF 000000006 00 01-8) So0%5 age” Me samuser PRS hese is : Hat 
7E 08 Ac 9D $0008 mMOVa  ENTITY_LEN; -(SP) > 1183 

04 AC DD 90006 PUSHL ENTITY F 

00000000v 00 0 FB o0018 CALLS #3, NML_SETKNOWNALL 
coooooooy co BE PR RRBIE TH EUS BITTE serena _ 
04 $0028 ET phi. > 1187 

36 bytes, Routine Base: $CODE$ + 0715 


1188 1 


14 
arameter module 1b-$e -1984 00:31:17 VAX-11 Bliss-32 V4.0-74 Pa 9 
xhonop S Set volatile node parameters 1 ~300 71382 99:35:15 DISKSVMSMASTER: CNML.SRCJNMLSET.832;1 9¢ 433 


E 
ZSBTTL at PSE TEMONODES Set volatile node parameters’ 
GLOBAL ROUTINE NMLSSETKNONODES (ENTITY, DUM], DUM2) : NOVALUE = 


#3 
3h 
a5 


| 83 


28S 


POPPINININIPOPSPYNINYNININIPYNINYNY 
AAT PORINIPIPINPININYIDY 2 9 tS 
MEW —OOCOnNOuU 
= PIII I NIAAA API 8 = 8 2 0 tt test 4 
ate 


+4 
! FUNCTIONAL DESCRIPTION: 


oO 
wry 


This routine sets the specified parameters for each of the nodes. 
FORMAL PARAMETERS: 


SSLESRENL 


1 
1 
1 
1 
: 
19 ; 
* | 
11 199 i ENTITY Entity type code. 
1 4 ! DUM) Not used. 
1; 8 : DUM2 Not used. 
15 08 ; IMPLICIT INPUTS: 
7 05 NONE 
3 §$ i IMPLICIT OUTPUTS: 
0 08 i 
1 99 NONE 
: 1 i ROUTINE VALUE: 
4 : i COMPLETION CODES: 
$ 4 NONE 
8 6 i SIDE EFFECTS: 
9 i 
é i NONE 
1 i 
¢ 0 lene 
1 
@ BEGIN 
4 


i If this no parameters specified then add all permanent data base information 
' to volatile data base. 


IF ,NMLSGL_PRS_FLGS CNMLS$V_PRS_ALLJ 
BEGIN 
NAL _SETEXEALL, () 


“SETKNOWNALL (NMLSC_NODE); 
NML“SETKNOWNALL (NML$C~LOOPNODE); 


3 1 
3 1 
3 3 
3 3 
3 1 
3 3 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
.? 
3 1 
3 1 
3 1 
3 1 
3: 1 
3 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3: 1 
3 1 
3 1 
. 
3 1 
3 1 
3 1 
3 1 
: 1 
3 1 
3 1 
3 1 
3 1 
3 1 
: 1 
s ¥ 
3 1 
3 1 
3 1 
: 1 
3; 1 
3 1 


a ae ea ee ce ee ee ec ee ee ee ee ed td ed od = = 2d od 


POPOPINOPOMEAPSPENONININIPONPNNNOND 
Pe oy at at ot at et ee ers 
NOs =SSe% w 


END 
ELSE 
BEGIN 
NML_SETEXE (); 
30 8 NML"SETKNOWN (NMLSC_NODE); 
3 40 END; 
54 42 END; ! End of NMLSSETKNONODES 


Von O60 NALSSETKRON Sots” soe volatile node parameters 1$-ep-1964 99: 3); 5 DE SKSUMEMASTERSCNML SRC NMLSET.832; i’ age 149 


094 ENTRY NIL SSETKNONODES, 3 ve R2 : 1190 
12 G 06 a ° f Bee ne” “NALSGL PRE wits: 1$ : 1227 
itdaittat 9 FB 00011 CALLS > NML_SETEXEALL : 1380 
DD 00018 PUSHL ; + 1231 

62 1 FB QO1A CALLS #1, NML_SETKNOWNALL F 
03 DD 0001D PUSHL # + 1232 
62 1 FB OO1F CALLS #1, NML_SETKNOWNALL po 
00000000v 00 09 FB 09 s 1$ CALLS #0, NML_SETEXE : 13 7 
0 DD A PUSHL # + 1238 

00000000v 00 1 FB 000 ¢ CALLS #1, NML_SETKNOWN : 
04 000 RET + 1242 


; Routine Size: 52 bytes, Routine Base: SCODE$ + 0739 


; 1255 1243 (1 
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K Set volatile entity parameters aaa 1 90:35:15 DP EKSUNGHAS TERS CURL Sac SNMLSET .032;1 29e 44) 


1 
1 
ZSBTTL "NML_SETKNOWN Set volatile entity parameters’ 
ROUTINE NML_SETKNOWN (ENTITY) : NOVALUE = 

4 


lee 
FUNCTIONAL DESCRIPTION: 


vOL=000 NALS 


www 
—~ 


2S 


This routine sets the specified parameters for each of the components 
of the given entity type. 


i 
i INPUTS: 
] 


LEAFAR 


ENTITY Entity type code. 
BEGIN 


LOCAL 
BUFEND, 


ANN 
MEWN oO 


' Database ID 
' Search key one ID 
' Search key two ID 


PEA APA AMAA BE 


SRCHKEY2, 
ENTITYADD, 
ENTITYLEN, 
ISD : DESCRIPTOR, 


COwmoa~~ 
Wn Oo 0OOnNo 


r descriptor 
ffer descriptor 
ffer descriptor 


Mrmrorn 


SSSLESLESSSESE 


STATUS 
STRIFLG; 


! 

: Build Q10 buffer. 

DB = .NMLSAB_ENTITYDATA C.ENTITY, 

SRCHKEY1 = .NMLSAB_ENTITYDATA C.ENTITY, 
SRCHKEY2 = .NMLSAB_ENTITYDATA C.ENTITY, 


Process every entry in the data base. 


E s 3 Database ID 
i] 


i; ' Search key one 


Search key two 
The NICE protocol specifies that, for multiple entity changes, one NICE 
response message must be returned to NCP for each entity changed. Each 
message must contain the ID of the entity changed. Therefore, the following 
Loop issues one Q10 to the ACP to get a bufferfull of entity ids, and then 
issues one Q10 for each onetey in the buffer to perform the set. This 
eroqees, cent tauss until the ACP returns end-of-file to the request for more 
entity IDs. 


STRTFLG = FALSE; 
WHILE NAL SGET_ENTITY_1DS (ENTITY, NMASC_ENT_KNO, 0, .STRTFLG, LISDSC) DO 


STRTFLG = TRUE; 
BUFEND = .LISDSC CDSCSA_POINTER] + .LISDSC CDSCSW_LENGTH); 


SSSLSARRANLSSSELSEALAN=ASS 
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PTR = .LISDSC COSCSA_POINTER]; 


ios hy LSSA .BUFEND DO 
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ENTIDPTR = NMLST_ENTBUFFER: 
NMLSQ_ENTBFDSC CBSCSW_ LENGTH] = NMLSK_ENTBUFLEN; 


ene sty IDs for the ACP are different from those used by NICE. The 
a cause of this is that the ACP uses a word for the entity 

str "9 Length, and NICE uses a byte. The followin cogs sets up the 

two ID forms: the NICE entity 1D for the response ie 

the ACP entity ID to be used in the P ates of the 


i 
i 
i 
i 
clear Q10. 
SELECTONEU -ENTITY OF 
NML$C_NODEJ: 
BEGIN 


T 
T 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
PTR = .PTR + 4; ! Skip apogee flag. 
ENTITYADD = .PTR: int to node address 
ENTIDPTR = CHSMOVE (2, .PTR, .ENTIDPTR) 
PTR = .PTR + 4; 
i 
4 
4 
4 
4 
4 
4 
4 
6 
4 
4 
4 
4 
4 


ENTITYLEN = .(. -PTR)<O, 8>; ! Get name Length 
PTR = .PTR + 


CHS WCHAR A (. ENTITYLEN. tek 

ENTIDPTR™ = CHSMOVE ( -ENTITYLEN, PTR, .ENTIDPTR); 
= .PTR + -ENTITYL 

ENTITYLEN = 2; I Get a of node address 


The entity ID for the tel lLowtog gogutes tf. ane _ a a 
ol lowe e 
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NMLSC"TRACEPNT, 
NMLSC°X29_SERV_DESTI: 
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(X09 “PROTOCOL! ENTIDPTR) :~ 
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a VE _ASCIC (*X25-TRACE®, ENTIDPTR); 
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CNMLSC_X29_SERV_DEST): 
SHOVE KSEIC-c ROO-SERVER® , ENTIDPTR); 


ENTIDPTR = CHSMOVE (2 
NMLSAB_ENTITYDATA C.ENTITY, ELTS$W_DETAILI, 


-ENTIDPTR); 
CHSUCHAR_A (NMASH_PTY_ASC, ENTIDPTR); 


TES; 
IF .ENTITY wee NMLSC_NODE THEN 


N . 
CHSWCHAR_A (.ENTITY 


WA (. LEN, ENTIDPTR); 
ENTIDPTR = CHSMOVE (.ENTITYLEN, 
-ENTITYADD, 
ENTIDPTR); 
TYLEN; 


PTR = .PTR + .ENTI 
END; 
NMLS$Q_ENTBFDSC CDSC$W_LENGTH] = .ENTIDPTR - NMLST_ENTBUFFER; 
Add the parameters to volatile data base entry. 
NMLSBLDSETOBF (NFBSC_FC_SET, .DB 

~SRCAKEY1, .ENTITYLEN, .ENTITYADD, 

.SRCHKEY2, -1, 0, 

NML$Q_NFBBFOSC, NFBDSC, 

NML$Q"P2BFDSC, P2 

NML$GO_GIOBFDSC, QBFOSC); 
IF NALSNETQIO (NFBDSC, P2DSC, 0, QBFDSC) 

BEGIN 


NMLSAB_MSGBLOCK Be, J = 0; 
NMLSAB_MSGBLOCK CMSB$B_CODE] = NMASC_STS_SUC; 


END; 
Add the entity identification to the message. 


NML $AB_MSGBLOCK FRSBSV_ENTD FLD] = 1; : 
NMLSAB-MSGBLOCK CMSBSA_ENTITY] = NML$Q_ENTBFDSC; 


Build and send the response message. 


NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 
NAL SSEND (NMLSAB_SNDBOFFER, .MSGSIZE); 


! End of NML_SETKNOWN 
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WAL _SETK Set volatile entity parameters 1 ~300- 1382 90: 35;15 DT EKSVMGHASTERSCWRL SRCSNMLSET .832;1 290 14) 
| 


-PSECT SPLITS,NOWR1 ,NOEXE,2 


53 53 45 43 43 41 2D A O P.AAE: .ASCII <10>\X25-ACCESS\ : 
4c 6F 63 GF 3 4F 5 ‘ D C P.AAF: . ASCII <i2>\x 3-PROTOCOL\ ; 
$2 4 ¢ 3¢ 4 D A P-AAG: .ASCII <10>\X25-SERVER\ : 
45 43 41 52 54 2D 9 P.AAH: .ASCII <9>\X25-TRACE\ : 
52 45 56 S2 45 53 2p 39 A D P.AAL: ASCII <10>\X29-SERVER\ : 
-PSECT SCODES,NOWRT,2 
OFFC 00000 NML_SETKNOWN: 
WORD Saye R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 5 1265 
: 34 C2 0000 SUBL2 5c, SP : 
04 AC 00 0000 MOVL ENTITY, R7 + 1280 
56 7 ¢ § 0009 MULL R6 ; 
OC AE 0000000060046 9A 00000 MOVZBL NAL GAB _ENTITYDATA®SER61, dB ; 
0000000060046 9F 00016 PUS NMLS$AB~ENTITYDATA+6LR6] + 1281 
08 AE 9& DO 0001D MOVL a@(SP)+7 SRCHKEY1 : 
0000000060046 9F 00021 PUSHAB NMLSAB_ENTITYDATA+10(R6J + 1282 
04 AE 9E DO 00028 MOVL a(SP)4+> SRCHKEY2 : 
5B 04 0002C CLRL = STRTFLG + 1294 
2¢ AE 9F 000 : 1$ PUSHAB LISDSC + 1295 
B DD 000 PUSHL STRTFLG ; 
E D4 000 3 CLRL. = SP) : 
7E 1 CE 000 MNEGL #1, (SP) ; 
7 DD 000 PUSHL 7 : 
000000006 00 7 Fe 003A CALLS #5, NMLSGET_ENTITY_IDS : 
1 0 9041 BLBS RO, 2$ : 
4 00044 RET : 
5B 01 D0 00045 28: MOVL #1, STRTFLG : 1298 
50 C AE C 00048 MOVZ2WL LISDSC, RO + 1300 
6e 0 BES ; 004C¢ V SLISDSC+4CROJ, BUFEND F 
0 AE D 9051 MOVL LISDSC+4, PTR + 1301 
6E 58 D1 00055 3$: CMPL PTR, BUFEND + 1303 
4 1€ 0098 BGEQU 1 ; 
53 00000000" 00 9€ 0005A MOVAB NMLST_ENTBUFFER, ENTIDPTR + 1306 
00000000' 90 40 8F 98 00061 MOVZBW 6h, AML$Q_ENTBFDSC + 1307 
D1 0069 CMPL =-R7, #3 : 1318 
8 t itt ADBL2 be PTR : 1321 
D a MOVL PTR, ENTITYADD ; 3 5 
8 74 MOVW (PTR)+, (ENTIDPTR)+ 31 
g 77 ADDL2 #2, PT + 1324 
A 0007A MOVZBL (PTR)+, ENTITYLEN : 1326 
p 7D INCL PTR + 1327 
7F MOVE. ENTITYLEN, (ENTIDPTR)+ : 1328 
2 09 MOVC3 ENTITYLEN, (PTR), (ENTIDPTR) + 1329 
¢ ADDL2 ENTITYLEN, PT : 1330 
p MOVL #2, ENTITYL > 1331 
C B 12$ : 1316 
pI 4$ CMPL = R?, #13 > 1340 
F BLSSU‘5$ ; 
D1 0009 C R7, #16 : 


", $3 
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al et volatile entity parameters -Sep- :50: KS$V :CNML. B32; (14) 
NML_SETK $ latil : | Sep 198 99 ; 19 _ DISKSVMSMASTER:CNML.SRCINMLSET.B32:1 (14 
r BLEQU 6 : 
12 7 ; 98 5$: CMPL gS #18 : 
ry 98 BEQL 6 : 
14 7 p CMPL =-R7, #20 : 
3 A BEQL 6$ : 
16 p CMPL R7, #22 : 
5 A BNEG 128 : 
0D D A7 68: CMPL =sR?, #13 + 1350 
A 1 AA BNEQ 7$ : 
63 00000000" 00 8 2 AC MOVC3 #11, P.AAE, (ENTIDPTR) : itl 
F B4 BRB 11$ : 
OE 7 pI 086 7$: CMPL -R7, #146 + 1352 
F iF BLSSU 8S : 
10 7 pi 088 CMPL R7, #16 : 
A 1A 0008 BGTRU 8$ : 
63 00000000° 00 D 28 0 C MOVCS #13, P.AAF, (ENTIDPTR) + 1353 
4 1 000¢ BRB 118 : 
12 D1 OOOCA 8S: CMPL R7, #18 + 1354 
A ig OCD BNEG 9$ : 
63 00000000' 00 0B 2 OOCF MOVC3 #11, P.AAG, (ENTIDPTR) + 1355 
I¢ 1 00007 BRB 11$ : 
14 57 01 00009 98: CMPL R7, #20 : 1356 
OA if 00DC BNEQ 108 ; 
63 00000000" 00 OA <8 Sobek moves #10, P.AAH, (ENTIDPTR) + 1357 
16 9 D1 OO0E8 10$ CMPL R7, #22 : 1358 
08 iF 000EB BNEG «dW: ; 
63 00000000' 00 0B g O0ED MOVC3) #11, P.AAI, (ENTIDPTR) + 1359 
0000000060046 SF O00FS 118 PUSHAB NML$AB_ENTITYDATA+1(R6] + 1363 
£ 9E 80 OOFC MOVW a(SP)+> (ENTIDPTR)+ : 
g 40 Hi OOFF MOVB #64, (ENTIDPTR)+ + 1364 
0 7 D1 00103 12 CMPL =soR?, #@ : 1369 
10 13 00106 BEQL)=Ss«é1:38 ; 
59 88 3 00108 MOVZWL (PTR)+, ENTITYLEN + 1371 
5A 58 00 00108 MOVL PTR ITYA : 1373 
83 9 90 0010E MOVE.  ENTITYLEN, (ENTIDPTR)+ : 1374 
63 A 9 2 oii] ve3 ENTITYLEN, (ENTITYADD), (ENTIDPTR) : 1377 
9 ¢O 00115 ADDL2 ENTITYLEN, PTR : 1378 
00000000" 09 Hf 0118 138: HOVAB NML$T_ENTBUF ER, R : 1381 
00000000" 00 € 0 a3 OO11F SUBW3 RO, ERTIDPT.., NMLSQ_ENTBFDSC ; 
14 AE 9F 00127 PUSHAB : 1385 
000000906 0 3 01 A PUSHAB NML$GQ_QIOBFDSC ; 
00000000" 0 3 a SHAB NML$Q_P2BFDSC : 
AE F 001 PUSHAB NF ; 
00000000° 9 9F 001 § PUSHAB NML$Q_NFBBFDSC ; 
D4 0014 CLRL = = (SP) ; 
7E 01 CE 00144 MNEGL #1, -(SP) + 1387 
24 AE DD 00147 PUSHL  SRCHKEY2 ; 
7E 59 7D OO14A MOVQ. ENTITYLEN, -(SP) + 1386 
34 AE DD 0014 PUSHL SRCHKEY1 ; 
C AE OD 001 3; 1385 
: DD 001 PUSHL #35 ; 
000000006 00 — FB 001 CALLS #14, NMLSBLDSETOBF ; 
146 AE 9F 0015C PUSHAB QBFOSC : 1392 
7E 04 0015F CLRL = = (SP) ; 
24 AE 9F 00161 PUSHAB P2DSC : 


wu Sse) SET parameter mod 
v04 ST Set Tsthe entity parameters 
30 AE OF 
000000006 60 |} 
s 000000006 6 
BBE 8 oonooon 38 
009000006 5 F 
000000006 00 b 43 
000000006 8 BP 
000000006 00 3} 
FEA ; 


; Routine Size: 436 bytes, Routine Base: S$CODES + 076D 


; 1427 1414 1 


eat a dd db ds > bt tt 


ocr> 


15 
-Sep-1 
~bep-t 


14$: 
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VAX-11 Bliss-32_V 


NFBDSC 
Re, 7 jt 
RO, 14 


NMLSAB_MSGBLOCK 

#1, NMCSAB_MSGBLOCK+4 

wié NAL SAB MSGBLOCK 

ha $0 EN NTBFOSC, NMLSAB_MSGBLOCK+20 


I 
NOL SAB ite et te 
#2 SBLD_REPLY 
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SSET NML SET parameter module 18- ep-1 2:31:17 VAX-11 Bliss-32 V4.0-74 Page 47 NAL 
¥o%~ 000 NAL ETKROUNALL Set volatile database paramete 1 =3007 1382 99330315 DISKSVMSMASTER:[ OERCINMLSET.B32: 1 . (15) voé 
; 14 14 1 ZSBTTL_ "NML_SETKNOWNALL Set volatile database parameters’ ; 
; 1? : 1 ! ROUTINE NML_SETKNOWNALL (ENTITY, ENTITY_LEN, ENTITY_ADR) : NOVALUE = . 4 
: 14 ; 1418 1 !+¢ : | 
: 16 14 ! : FUNCTIONAL DESCRIPTION: 3 
: 1435 7 1/ This routine sets all permanent parameters for the specified ‘ 
; 1 Fs ! entity type into the volatile data base. 2 
; 14 1404 t INPUTS: i | 
: 1440 1426 1! ENTITY Entity type code. : 
3 144 1G 1} ENTITY_LEN Byte count of entity id string. . 4 
; 1208 14 7! ENTITY_ADR Address of entity id string. a 
3 1446 14 1! : | 
: 348 ey | i . 
> 144 14 BEGIN : 
tee 12 LOCAL 3] 
> 1449 14 bufend, 3] 
; 1450 14 ! Database ID : | 
3 1451 14 srchkey1, ! Search key one ID 2 
: 1426 1438 srchkey2, ! Search key two ID 2 
3 145 1439 entityadd, .4 
3 1454 1440 entitylen, : 

; 1455 1441 id, ! File id code | 
; 1628 4 | fldadr, : | 
: 1088 lee ia - 
3 e 3 
: 1459 1645 qual_ten, 3 
; 1460 1466 qual"adr, : 
> 1461 144 msgsize, : | 
; 146¢ 1448 owner, ! Search key : | 
3 146 1449 nfbdsc DESCRIPTOR, ' NFB buffer descriptor : 1 
> 1464 1450 pedsc DESCRIPTOR, 1 Q10 P2 buffer descriptor 2] 
3 1465 1451 abfdsc : DESCRIPTOR, ' Q10 P2 buffer descriptor : 
3 1<o8 1026 recdsc : DESCRIPTOR, ! Record descriptor é 
3 146 145 status, : | 
3; 1468 1454 rewind_flag, ' Used for node database only. Set at 3 | 
: re 44 1455 : at the hageenang of an operation. ae 
; 1en9 1628 tabdes : REF DESCRIPTOR; ! Table for SET ALL ae 
; 147 1458 2 | 31 
; 1478 1435 ; Get entity information. S| 
: 1475 1461 2 db = .nml$ab_entitydata [ entity. eit$b_database); ' Database ID z | 
: 1676 1466 srchkey! = .nml$ab_entitydata E.enti Y. eitst_srch idl; Search key one ; 
3; 147 146 srchkey2 = .nml$ab_entitydata C.entity, eit$l_srch_id2J;! Search key two F 
3 1628 1464 tid = .nml$ab_entitydata C.entity, eit$b_TfileidJ; |! File id code : 
3 14 1465 owner = .nml$ab_entitydata [.entity, oj téu_key H ' Search key : 
; 1480 1298 tabdes = .nml$ab_entitydata C.entity, eitSa_alltabJ; ‘! Table for SET ALL : 
TE Bey : 
: 14 : 1269 status = nml$_sts_suc; : 
; eee 14 9 rewind_flag = true; : 
3; 1485 147 : ; 
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cote f Loot ing for records in the permanent database which match the entity 
T. For each one found, build Q10 buffers peerens all the 
tm KL in the permanent data base record, and issue SET to the ACP. 
te that the entity .infornat on passed to Gh SRATCHRECORD” is normally 
zeros. it 43_no o for woe such as 
SET x2 -PROTOCOL a XYZ A 
which, although $ a si ° le ent ty; has one record for each OTE assigned 
to the group. Therefore, it is a multiple Q10 operation. 


WHILE .status DO 
qesin 


eee 


i The structure of the node permanent database is different from the 
others because it can be much bigyer and therefore needs to be faster. 


if .fid NEQ nma$c _opn_node THEN 
status = nmi $matchrecord (.fid, nal $qq_ recbfdsc, key, 


a -entity_len, .entity_adr, 
recdsc). 


ELSE 
BEGIN 


Se el Dek ek dled Ink eke Deke Ie eke ee 


= 
AVIS SHIR AR Oe 


T 
T 
4 
4 status = nml$read_known_node_rec (.entity, orn? reretees:. 
4 recdsc, .rewind_flag); 
4 rewind_flag = false; 
; END; 
IF .status THEN 
4 BEGIN 
? nml$ab_msgblock Cmsb$b_code] = 0; ! Reset status code 
? Get entity id. 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
; 


ent ityedd = = 0; 
status = nma$searchfld (recdsc, .owner, entitylen, entityadd); 


Oo 
w 


Get entity id for SET Q10 and id string for response message. 

SELECTONEU entity OF 

nml$c_loopnode): 
BEGIN 


Id for loop node is node name. 


caitiweed = 0; 
status = nma$searchfld (recdsc, nma$c pcno_nna, 
a entitylen, entityadd); 


Cnml $c _prot_grpJ: 


Get the DTE ID from the Group record just read. The DTE 
is the second search key ID for the SET Q10. 


BEGIN 
qual_adr ! Search from beginning of record. 
status = A. (recdsc, nma$c _Pcxp_gdt, 


em ee ee ee em em em me ee a ed ed ed wd wd dd dD 
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SSET NAL SET parameter module 15-50 Sep-19 1:17 VAX-11 BL ls s-32 V4. Page 49 
Vv +360 NAL _SETK LL Set volatile database paramete 1 =3007 1382 99: 3); 719 DISKSVMSMASTER: a NRL SRCSNMLSET. B32;1 ° (15) 
ry wes qual_len, qual_adr); 
“s ves; 
re END; 
4 IF .status THEN 
+8 BEGIN 
9 i Build Q10 buffer. 
4 rm $b\dal des reeset, 8 ogee ! Build parameter descriptors 
nm se nfb$c 
4 -srchkey evi “enett len, sonprezede. 
5 -srchke -qual Len. -Qual_adr, 
36 rm l a.nfbbtasc, 5f bdsc, 
\$q_p2bfds 
3 ; nml$gq_ qiobfdsc, qbfdsc); 


Add the parameters to volatile data base entry. 

if nal $netqio (nfbdsc, p2dsc, 0, qbfdsc) THEN 
nml$ab_msgblock pasbsi. flags] = 0; 
as msgblock (msb$b_code] = nmasc _Sts_suc; 

Add the entity identification to the response message. 


nml$q_entbfdsc Cdsc$w_length] = nml$k_entbuflen; 
nml $getrecowner yes =k 


ot yatbtds 
nmi $q_ enthtdac *Cdsc$w _length]); 


nml\$ab_msgblock (msb$v_entd_fid] = 
nmlSab_msgblock Emsb$a_entity] = aniéq. entbfdsc; 


Build and send the response message. 
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rmi$bld a Coalsabr snes msgblock, eeesize): 
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PUPP PUPUPVUDPVIUPUDVPUDPUPUDUSVSPULUSUSU SESSILIS ISVS VOSS 


SPER RS OS ISON NSS USOT ESOS 


28 nal Ssend ab_sndbuffer, msgs ize) $ 

A boy = _ + 1; ! Increment record key 
7 e 

8 END; ! End of NML_SETKNOWNALL 


OFFC 00000 NML_SETKNOWNALL : 


WORD Save R2,R3,R4,R5,R6,R7,RB,RI,-R10,R11 > 1416 
58 000000006 99 9 9002 OVA Nal $ AB AB_MSGBLOCK, R11 : 

046 AC 5 of MOVL entity R3 > 1461 
50 2c ¢ 1 MULL3 #44, RS, R : 
A 0000000060040 9A 00014 MOVZBL NML$AB_ENTITYDATA+5CROJ, DB ; 


PUSHAB ENTITYLEN 
MOVZWL #500, -(SP) 


15 

SSET ameter module 1b-5e -1984 00:31:17 VAX-11 Bliss-32_ V4.0-74 e 
iva tc NAL Se TKhOW LL Set volatile database paramete 1 ~3007 138% 90:35:15 DISKSVMSMASTER: CNML.SRCJNMLSET. 832;1 ‘hee 
0000000060040 9F 1 PUSHAB NMLSAB_ENTITYDATA+6(ROJ 3 

9 go MOVL a(SP)+, SRCHKEY1 : 

coocoonosoNs f PUSHAB WOM SAG ENT I TYDATACTOCRO? : 
. 0 Vv a(SP)+, SRCHKEY : 
ssmssennest A MOVZBL NMLSAB “ENT TYDATACRO3 FID : 

F PUSHAB NMLSAB_ENTITYDATA+3LROJ : 

3 C F MOVZWL a@(SP)+, OWNER : 

> po0000006008 F 4 PUSHAB NMLSAB_ENTITYDATA+40(ROJ 3 

7 9E DO 4 MOVL a(SP)+, TABDES 3 
. 04 4C CLRL a : 

2 i) rs MOVL #1, STATUS $ 
4 } i) MOVL #1, REWIND_FLAG 3 
3 4 1$: BLBS STATUS, 2$ : 

4 000 RET 3 

56 0 058 2$: TSTL FID 3 

244 («di SA BEQL 3$ : 

18 AE 3 5C PUSHAB RECDSC é 

7 C OSF CLRQ (SP) : 

7 b 0061 CLRL (SP) é 

7E 08 ag D 0006 MOVQ ENTITY_LEN, =(SP) : 
5 DD 0006 PUSHL OWNER 3 

1¢ M4 SF 00069 PUSHAB KEY 3 
000000006 00 9F Bnet PUSHAB NML$GQ_RECBFDSC : 
56 0D 000 PUSHL F 3 

000000006 00 OA FB 00074 CALLS #10, fit SHATCHRECORD : 
52 50 pO 00078 MOVL RO. TUS 3 
19 11 QOO7E BRB : 

54 DD 00080 3$: PUSHL REWIND. FLAG 3 

1C AE 9F 0008 PUSHAB R ; 
00000009G 00 9F 4 PUSHAB NML$GQ_RECBFDSC 3 

53 dd 00088 PUSHL F 

000000006 99 98 FB 0080 CALLS #4, WH SREAD KNOWN_NODE_REC $ 
0 pO 00094 MOVL RO. TUS 3 

23 D4 00097 CLAL REGIND. -FLA6 : 

50 2 €9 00099 4$: BLBC STATUS, 7$ F 
04 AB 94 0009C CLRB ae *MSGBLOCK+4 3 

04 AE 04 4 CLAL ENTITYADD g 

046 AE F 0 PUSHAB ENTITYADD $ 

0c AE 9F QOOA PUSHAB ENTITYLEN F 

5 D 000A8 PUSHL OWNER F 

24 =«OAE F QGOAA PUSHAB RECDSC 3 
000000006 4 F OAD CALLS #4, NMASSEARCHFLD 3 
MOVL RO, STATUS 3 

CMPL R3, #5 $ 

BNEQ 5 3 

CLRL Buti ivans 3 

PUSHAB ENTITYADD : 
BRB 6 ; 
CMPL R35, #16 F 
BNEQ 7 3 
CLRL_ QUAL_ADR : 


MO 
PUSHAB RECDSC 


mannan ‘es 


K 15 
SSET NAL SET parameter module 16-Sep-1 31:17 VAX-11 Bliss-32 V4.0-74 Page 51 = 
va tah NAL _SETK LL Set volatile database paramete 1 300-1382 99330315 DISKSVMSMASTER: CNML.SRC INMLSET.B32;1 . (13) 
000000006 4 Ff 2 CALLS #4, NMASSEARCHFLD ; 
D E MOVL RO, STAT : 
: EC 7$ BLBS TATUS, + 1533 
OOA EF BRW 3 
57 po Fe 8$: PUSHL TABDES : 1538 
1¢ AE OF OOF PUSHAB Re Cost : 
000000006 00 02 FB O0OF7 CALLS #2, NMLSBLDALLDES : 
ar F OFF PUSHAB QBFDSC : 1539 
0000000606 0 f } PUSHAB NML$GQ_QIOBFDSC : 
00000000° 06 9 OO10A PUSHAB NML$Q_P2BFDSC : 
4 ar 3 1 PUSHAB NF : 
00000000" 00 9F 0011 PUSHAB NMLS$Q_NFBBFDSC : 
¢4 AE DD 0011 PUSHL QUAL_ADR + 1541 
C AE DD 0011C SHL  QUAL~LEN F 
58 DD O011F PUSHL RCHREY : 
38 AE DD 00121 SHL ENTITYADD + 1540 
0 AE DD 00124 PUSHL ENTITYLEN ; 
2 DD 00127 5 SRCHKEY : 
A DD 001 PUSH + 1539 
3 DD 00128 SHL #35 : 
000000006 00 E FB 00120 CALLS #14, NMLSBLDSETOBF ; 
20 AE OF or PUS QBFDSC + 1548 
E 04 00137 CLRL = = (SP) F 
0 AE 9F 00139 PUSHAB : 
C AE 9F 0013¢ PUSHAB NFBDSC : 
000000006 00 4 FB 0013F CALLS #4, NMLSNETQIO ; 
06 0 £9 00146 BLBC =«._«RO,,_-«&O9S : 
D4 00149 CLRL §NMLS$AB_MSGBLOCK : 1550 
04 01 90 00148 MOVE #1, NMCSAB_MSGBLOCK+4 : 1551 
00000000" 00 40 8F 98 OO14F 9S MOV7BW #64, NMLS$Q~ENTBFDSC : 1556 
09000000" 00 9F 00157 PUSHAB NML$Q_ENTBFDSC : 1560 
00000000' 99 9F 0015 PUSHAB NMLS$Q~ENTBFDSC : 1557 
pp 0016 PUSHL R3 : 1560 
24 AE OF 0016 PUSHAB RECDSC : 1557 
000000006 00 04 FB 00168 CALLS #4, NMLSGETRECOWNER : 1560 
6B 10 88 O16f BISB2 #16, NMLSAB_MSGBLOCK : 1362 
14 AB 00000000" 00 9€ 00172 MOVAB NML$Q_ENTBFDSC, NMLSAB_MSGBLOCK+20 : 156 
14 AE OF OO17A PUSHAB MSGSIZE : 1567 
38 DD O70 PUSHL R11 : 
000000006 00 02 FB 0017F CALLS #2, NMLSBLD_REPLY ; 
14 AE DD 0186 PUSHL MS : 1568 
000000006 00 9F 00189 PUSHAB NMLSAB_SNDBUFFER : 
000000006 00 02 FB 18 CALLS #2, NMCSSEND : 
6 196 10S: INCL KEY : 1570 
FEBS 31 00198 BRW : 1481 
4 00198 RET : 1573 


; Routine Size: 412 bytes, Routine Base: S$CODE$ + 0921 


SE 
SE 


re 
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ZSBTTL "NML_SETEXE Set executor arameters' 
ROUTINE NML-SETEXE : NOVALUE = 4 


ee 
S3S 34 


> 


Add the entity identification to the message. 
tru See TEXEIP ck ths SV ENTD ELDI NMLS$Q yr ererase COSC$W_LENGTH)) ; 


Se MEwty— 


MSBSV_ENTD 


$AB_MSGBLOCK 
MSBSA_ENTITY py _ENTBFDSC; 


NMLSAB-MSGBLOCK 


iaf eusquter specific parameters, use the local node database, 


otherw 


FPAPAOAPAOAOAAAAAAAAAAAASAAS 


WAPOPOPSPOPOPOPONPNUNY — Ot 


SODNOUES WN —OOCONOUESWN Oo 


rSSS335 
MEW —O 


se, use the node database. 


T 

SET 
3 1 1 1 
i 1373 
: 153 1899 1 tes 
; : 7 ; 8 ! } FUNCTIONAL DESCRIPTION: 
; 1595 1580 1! This routine adds the specified parameters to the volatile data base 
§ : +] ; 1 : entry for the executor node. 
; : 38 ; § : } FORMAL PARAMETERS: 
$s | fe 
: lone 1 1 ! IMPLICIT INPUTS: 
3; 160 1588 1! 
S| rn 
3 1908 1894 1 ! IMPLICIT OUTPUTS: 
; 160 1238 1! 
1809 1394. | | — 
: 1610 1392 1 ! ROUTINE VALUE: 
3; 1611 1 98 1 ! COMPLETION CODES: 
3 a 1597 1! 
ig 1399 | | — 
3; 1615 1600 1 ! SIDE EFFECTS: 
3; 1616 1601 1! 
3 1617 1602 1! NONE 
: 1618 1605 1! 
3 1619 1604 1 !-- 
; 1620 1605 1 
3 1 1 ; BEGIN 
3; 16 4 1608 LOCAL 
: 1624 1609 i) ! Database ID 
: 1625 1 SRCHKEY1, ! Search key one ID 
3 16 $ 1 SRCHKEY2 ! Search key two ID 
3: 16 1 ENTITYADD, 
; 16 1 ENTITYLEN, 
3; 16 1 MSGSIZE, 
3; 16 1 NODADDR, 
3 16 1 NFBDSC DESCRIPTOR, ' NFB buffer descriptor 
3: 16 1 P2DSC DESCRIPTOR, ' Q10 Ps buffer descriptor 
: : QBFDSC DESCRIPTOR; ! Q10 P2 buffer descriptor 
3; 16 1 
3; 16 1 
3 16 1 
3; 16 1 
3; 16 1 
: 1 1 
3 1 1 
3 Y 1 
2 1 1 
3 1 1 
3; 1 1 


s¢€ 


i 
3 
5 


Ze ge 53 


M15 
set arameter module 1o~300~ 138% 90: 34:12 VAX-11 Bliss- ng Pa 
_SETEXE Set executor parameters 14-Sep-19 2:50:19 DISKSVMSMASTER: CNML.SRCJNMLSET.832;1 (16) 


rs 
NO 


pecmnaves NFBSC_ WILDCARD; 


Peet-3 


Wr —O O@~ 


; Build and signal the response message. 


NMLSBLD_REPLY (NMLS$AB_MSGBLOCK, MSGSIZE); 
NML$SEND (NMLSAB_SNDBOFFER, .MSGSIZE); 


END; ! End of NML_SETEXE 


: 1 1631 : 
3 1% ig § we _PRS_FCGS CNMLSV_PRS_EXEPS : 
3 16 THEN . 
3; 164 1634 BEGIN : 
3; 16 1635 ’ 
3; 16 16 DB = NFBSC_DB EMI; ; 
: 16 § 16 SRCHKEY1 = wee C_WILDCARD; : 
3; 16 16 ENTITYLEN = <1; ! No id necessary for ; 
; 1654 1639 ENTITYADD = 0; ! executor parameters : 
: 1655 1640 : 
3; 16 : 1641 END ; 
s 1 ok ELSE : 
: 1658 164 BEGIN : 
: 1659 1644 ; 
; 1660 1645 DB = NFBSC_DB_NDI; : 
; 1661 1o68 SRCHKEY1 = NFBSC_NDI_ADD; ; 
3 1006 164 NODADDR = 0; ' Zero node address : 
: 166 1o63 ENTITYLEN = 2; ; 
3 1664 164 ENTITYADD = NODADDR; : 
3; 1665 1650 : 
3 1668 1651 END; . 
: 166 1oe6 ; 
: 1668 165 NMLSBLDSETQBF (NFBSC_FC_SET, .DB, , 
: 1669 1654 -SRCHKEY1, .ENTITYLEN, .ENTITYADD, . 
3; 1670 1655 -SRCHKEY2, -1, 0, : 
> 1671 1636 NML$Q_NFBBFDSC, NFBDSC, : 
3 2 165 NML$Q_P2BFDSC P2DSC ; 
: 1625 1658 ¢ NMLSGU_QIOBFDSC, QBFDSC); : 
3 190? 1099 ; Add the parameters to volatile data base entry. ‘ 
3 1878 1666 IF NMLSNETQIO (NFBDSC, P2DSC, 0, QBFDSC) THEN é 
: 1678 166 BEGIN ; 
3: 1679 1664 NMLSAB_MSGBLOCK CMSBSL_FLAGS] = 0; . 
| 1665 NMLSAB_MSGBLOCK CMSB$B_CODE] = NMASC_STS_SUC; ; 
3 1 1666 END; : 
2 % 1 ; 
3 1 1 : 
3; 1 1 : 
3 1 1 

: 1 1 

3; 1 1 

. 9 1 


SESSEEREE 


AAO 
NNN 


007C 00000 NML_SETEXE: 
WORD Save R2,R3.R4,R5,R6 


. ; 1575 

56 99000000" 0 9€ 0000 MOVAB NML$Q_ENTBFDSC, R6 : 

55 000000006 0 00 MOV NA SAB MSGBLOCK, RS : 

5E C 1 S #32, SP 3 
DD 0 1 PUSHL > 1623 

000000006 0 Pe S001 CALS a3 NMLSGETEXEID 
88 ; BB Sole BISB2 #16, NML$AB_MSGBLOCK > 1624 


voe=000 


14 


000000006 


000000006 
04 
000000006 
000000006 
Routine 


; Routine Size: 183 bytes, 


NML SET parameter module 
NML_SETEXE Set executor parameters 


AS 


4 
; 000000006 


33 02010012 


50 


7E 


00 


00 
06 


AS 


00 


08 
eaaeet | | 
00000009" 
00000000 


04 


04 
9 000000006 


Base: 


G 


POPrPAoowo— 
Mmrom ™rorwoo—-—-— Oo — 


0 


OOooooo°o°o°oo 
SSSSSSSsS Ss 
Ze PR 
es MMO Sv OM 


i=] 


OO9F 


OnNOIT NSO OCOIOM"OOVONOVOCVCVTTOYS wolrI7I770-—-cF Vv 9OMYI 


SSSSsssssssssses 
oo 
© 
> 


o 


SCODES + OABD 


Be 19:50:15 


#1, SRCHKEY 
WALSGL _PRS_FLGS*1, 1$ 


#1. SRCHKEY1 

#1. ENTITYLEN 
NTITYADD 

#2, D 

484638086, SRCHKEY1 
NODADDR 

#2, ENTITYLEN 
NOADDR, ENTITYADD 
NML$GQ_QIOBFOSC 


NML $0, P2BF DSC 
NML$Q_NFBBFDSC 
=(SP 


SRCHKEY 

#35 

#14, NMLSBLDSETOBF 
QBFDSC 

-(SP) 

NFBDSC 

#4, NMLSNETQIO 

RO, 3$ 
NML$AB_MSGBLOCK 

#1, NMCSAB_MSGBLOCK+4 
MSGSIZE 

eee NMLSBLD_REPLY 


NML$AB_SNDBUFFER 
#2, NMCSSEND 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: CNML.SRCIJNMLSET.832;1 


NML$Q enTergsc. NMLSAB_MSGBLOCK+20 


Page 


Pee Ge Se Se Be Se Se Se Se Se Fe Ge Se Se Se Se Be Fe Fe Be Be Fe Se Be Se Be Fe Fe Fe Fe Fe Fe Se Se Fe Se Ge Fe Se Se Se 


| 
| 
| 


wa 


4 


(16) 


3 
MES SSS See ae 
WOON O@ New 


—TO™MIOOWZ El KCK TO WMIOODZ El KOK TAM IOOWVZ Sl ACH TO ™MIOOOVZ Sr ACK TO ™™IOW 
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ZSBTTL We SET ER ALL Set all executor parameters’ 
ROUTINE NML-SETEXEALL : NOVALUE = 


ee 
si 
35 


“~~~ 
NOUS 


tae 
! FUNCTIONAL DESCRIPTION: 


This routine sets all executor parameters from the permanent data base 
into the volatile data base. 


i FORMAL PARAMETERS: 
i NONE 


SLSLSSSSSH 


o 
MF uwr 


' 

' 

' 

' 

' 

! 

' 

' 

' 

IMPLICIT INPUTS: 
: This routine assumes the node data base file is open. 
IMPLICIT OUTPUTS: 
i 

' 

! 

' 

' 

! 

' 

' 

' 

{ 

' 

! 


33 


SeS 
oo 
POR DPOROPOPOPOPOPONOPORPORIMOPPORIPUNOPUNDNIIIID 8 8 a at tt st tt tt tt tt ss 
—- @D@ «ame. 
om 
o a 
_— 
@ z 
wa 
e 
ey 
a 
a) 
. 


SSLESFENLS 


ooo 


wn 


i ROUTINE VALUE: 
i COMPLETION CODES: 


i NONE 
i SIDE EFFECTS: 


i tt 


—b tb We 


QESRANLSSSLSESE 


SSSI IO OOOO 


dummy, 
status; 


MEUM $0 OO NOUS WN “CO OD@yOoufrun—o 


L 
1 tid, 
1 key, 
1 asgsize, 
1 nfbdsc : DESCRIPTOR, ! NFB buffer descriptor 
1 pedsc : DESCRIPTOR, ' Q10 Ps buffer descriptor 
1 abfdsc : DESCRIPTOR, ' Q10 °2 buffer descriptor 
; recdsc : DESCRIPTOR, 
1 
1 


' 

i Read executor node record. If one does not exist then create a 
: descriptor for a null record. 

key = .nml$ab_entitydata (nml$c_executor, eitSw_key); 

IF NOT nml$readrecord (nma$c_opn_node, 


ke 
UPLIT (nan$c_typ_key_Len, 
UPLIT {hal $c7executor)), 
nml$gq_recbfdsc, 
recdsc, 
dummy) THEN 


ee ee ee ee ee ce me ee ee ee ee ee ee ee 8 8 a ed oe ed od ed 


SSN NN NNN SN 
8 a a a a a a a a 


NNN 


VPROPOPONPoNoPonon9Nn 


SOOO NOA UNE WN OC OONOUS WN Oo 


St at at et et et 
OunFwn—o 


Be Se Be Oe Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Ge Se Se Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Se Se Se Ge Ge Ge Se Se Ge Ge Se Ge Se Fe Se Ge Se Ge Ge ee 
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poreneter module 16-Sep-1984 90:34:12 VAX-11 Bliss-32 V4.0-74 
EXEALL Set all executor parameters 14-Sep-1 50:19 DISKSVMSMASTER:CNML.SRCINMLSET.832;1 
BEGIN 
recdsc [ds¢t$w_length]_ = 0; 
recdsc [dsc$a_pointer] = “nal $oq_rechfdsc Cdsc$a_pointer] + 
ew nan$c_node_keys_len; 


! 
} Build a perqeeter descriptor for each parameter that is set in the record 
i 


Page 43 


mn 


se 


and set it in the volatile data base. 


nml$bldalides (recdsc, 
-nmlSab_entitydata (nml$c_executor, eit$a_alltab]); 
nm  $bldsetabf (nt oSe te set, nfb$c_dB_lni, 
nfb$¢_wildcard, -17 07 
nfb$c_wildcard, -1 
nml$q_n 
nmi $gq ooeetds pods ) 
A sc); 
status = nml $netqio Tnthdse. ~ Ry §° abfdsc); 
i If the first operation was successful then repeat the operation for the 


! parameters that the executor has in common with remote nodes. Otherwise 
: send an error response message. 


if .status THEN 


> >_> 
wm 


S 


AAO 
wr 


~aNO ess. 
PQQVoQVvqVVwV eee 


PAPE MANMNVIVIVIVIVI ES BEEP 


WN SO OONOUES WH 0 OONOAU SW O OO 


Be Se Se Se Se Ge Ge Se Se Se Se Ge Ge Se Ge Se Se Se Se Ge Se Ge Se Ge Ge Se Se Se Se Se Se Ge Se Se Se Se Se FH Se Ge Se Se Se Se Se Se Ge Se Se Ge Se Se He Se Se Se ee 
SSNS NNN SSS SSS 


a ee a kk ek ek ed ed td td ad = = | 3 te 2 8 
ce me me em ed ed a dd dt td ed 


PRIPDPIPIPIPIPDPIPPDNIJIPINIPIAININAI GES BB HANI AAI POPUPIPOPMUPIPOPIPIPUPPIPOPUIPUI PPI I 
Sed 
2 
*,' a 
Cc 
Cc 
a-a 
AB va 
o ow 
o 
be | _ 
3 
—~ 
os 
a 
w 
o 
>. 


re ate ee (recdsc, .nmlSab_entitydata [nml$c_node, eit$a_alltab]). 
exeadr = 0; 

74 nal Sbldsetqbf (nfb$c_fc_set, nfbsc_db_ndi. 

75 7 n -ndi_add, 0, exeadr, 

6 7 nfb$c_wildcard, -1, 0, 

7 7 nml$q_nfbbfdsc, nfbdsc, 

78 7 nml\$q_p2bfdsc, pddsc, 

79 Pe nml$gq_qiobfdsc, qbfdsc); 

1 765 IF nml$netqio (nfbdsc, p2dsc, 0, qbfdsc) THEN 

; 768 BEGIN 

76 nm $ab_msgblock paspsi_ flag = 0; 
: res sat Sen nogeleen msb$b_code] = nma$c_sts_suc; ! Successful 
ie) om 

re ak Add the executor entity descriptor to the message. 
790 774 2 nml$q_entbfdsc Cdsc$w_length] = nal$k_entbuflen; 
791 775 nml$getrecowner (recdsc 
19 176 nm($c_executor, 
79 77 nal $q_entbfdsc, 
ree ai | nml$q_entbfdsc Cdsc$w_length]); 
re 780 nml$ab_msgblock (msb$v_entd_fid] = 1; 
ja 1 nal $ab_msgblock msb$a_entity] = nal$q_entbfdsc; 
199 f 5 Build and send the response message. 
B01 785 2 nmi$bid reply (nmi $ab_msgblock, msgsize); 
aoe , nml$send (nml$ab_sndbuffer, .msgsize); 


SSET NAL SET paramete 
OL~000 NAL _SETEXEALL : 
; 1804 1788 1 END; 


000000006 


14 AE 000000006 


module 
Set all executor parameters 


$-32 V4.0-7 


> 16 
1ea8eei18he $3:80;19  SERKSVMGMASTERS CWC SRCSNMLSET.832;1° 


! End of NML_SETEXEALL 


-PSECT SPLITS,NOWRT ,NOEXE,2 


7 4 P.AAK: .LONG 7 
4 P.wAJ: «LONG 2 
000000° «ADDRESS P.AAK 
-PSECT SCODES,NOWRT,2 


00000 NML_SETEXEALL: 
«WORD Save OF R3,R4,R5,R6,R7,RE_RP 


9 06 9E 9002 MOVAB E 
a G 9E 99 MOVAB NMLSBLDSETCBF RnB, 
9 6 3 019 MOVAB NML$GO_Q10BFDSC 
§ 6 1 MOVAB NAL SSL BALLDES - 
00¢ 00 96 0001 MOVAB NM SAB Att ett 
4 B08 5 9E 000 MOVAB NML$Q_ENTB ~R 
3 00006 9E 00026 MOVAB mseBLock R3 
52 00000000° 9E 00033 MOVAR NM NML$Q_P2BFDSC, R2 
5E ¢ 003A SUBL2 #48, SP 
AE : C 00030 MOVZWL NMLS$AB_ENTITYDATA+311, KEY 
—E DD 0041 PUSHL SP 
14 AE 9F 0004 PUSHAB RECDSC 
000000006 00 9F 00046 PUSHAB NML$GG_RECBFDSC 
4C A2 9F 0004C PUSHAB P.AAJ 
14 AE OF O004F SHAB 
7E 04 00052 CLRL = = (SP) 
00 06 FB 00054 CALLS #6, NMLSREADRECORD 
0c E8 00058 BLBS 
10 AE B84 0005 CLRW = RECDSC 
00 OA C1 0006 DDL3 nid NML$GQ_RECBFDSC+4, RECDSC+4 
25 AS DD 0006A 18 PUSHL NMLSAB_ENTITYDATA+348 
14 AE 9F 000 PUSHAB Rec S 
66 02 FB 000 " CALLS NAL SBLDALLDES 
18 AE 9F 0007 PUSH ab osc 
5? DD 0007 PUSHL 
28 «AE OF 0007 PUSHAB P2DSC 
52 0D 00078 PUSHL R 
38 «AE O9F 0007 PUSHAB NFBDSC 
F8 Ad OF PUSHAB NML$Q_NFBBFDSC 
7E D4 008 CLRL =(SP)~ 
7E 1 CE 00 MNEGL #1, (SP) 
1 DD 99 PUSHL #1 
E D4 CLRL ) 
7E 1 CE C MNEGL #1, -(SP) 
1 BD F PUSHL #1 
1 0D 1 PUSHL #1 
3 DD 0009 PUSHL #35 
68 —E FB 0009 CALLS #14, NMLSBLDSETOBF 
18 AE 9F 0009 PUSHAB OBFDSC 
7E D4 00098 Re 
28 AE 9F 00090 PUSHAB P2DSC 


$9 495 


1675 


16 
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34 AE OOF PUSHAB WNFBDSC ; 
69 94 F A CALLS #4, NMLSNETQIO ; 
4D 9 E BLBC = STATUS, + 1756 
FF75 C D A PUSHL NMLSAB_ENTITYDATA+172 : 1756 
14 AE 9F OOOAD PUSHAB RECDSC : 
66 0 Fe 80 CALLS #2, NMLSBLDALLDES : 
08 AE p CLRL ——s« EXEADR + 1757 
18 AE OOF 86 PUSHAB OQBFDSC : 1758 
5 i) 8 PUSHL R : 
28 «AE OF 00088 PUSHAB Peps : 
5 D 0008 PUSHL R : 
38 AE OOF 0 C PUSHAB NFBDSC : 
FB Ad 9F O00C PUSHAB NML$Q_NFBBFDSC F 
43 04 pote CLRL -(SP) : 
7E p CE 000¢ MNEGL #1, =(SP) : 1760 
1 BD 00¢B PUSHL #1 : 1758 
2¢ «AE «9F 000CD PUSHAB EXEADR : | 
7E D4 0000 CLRL 5$P) : 
02010012 8F DD 0000 PUSHL #33619986 : 
: DD 000d PUSHL # ; 
DD OOODA PUSHL #35 : 
68 — FB OOODC CALLS #14, NMLSBLDSETOBF 3 
18 AE 9F OO0DF PUSHAB OBFDSC : 1765. 
7E D4 000E2 CLRL = = (SP) : 
8 AE 9F OODES PUSHAB P2DSC : 
4 AE OF OO0E7 PUSHAB NFBDSC F 
69 04 FB OOOEA CALLS #4, NMLSNETQIO : 
06 9 E9 OO0ED BLBC > ; 
D4 O00FO CLRL § NMLSAB_MSGBLOCK + 1767 
046 AB 1 90 000F MOVE #1, NMCSAB_MSGBLOCK+4 + 1768 
64 40 8F 98 000F6 28: MOVZBW #64, NMLSQ-ENTBFDSC : 1774 
4 DD OOOFA PUSHL  R4 : 1778 
54 DD OOOFC PUSHL 4 : 1775 
07 DD O00FE PUSHL : 1778 
1¢ AE OOF 90100 PUSHAB RECDSC : 1775 
000000006 00 04 cB 0010 CALLS #4, NMLSGETRECOWNER : 1778 
63 10 8 O10A BISB2 #16, NMLS$AB_MSGBLOCK : 1780 
16 AB 64 9E 0010D MOVAB NML$Q_ENTBFDSC, NMLSAB_MSGBLOCK+20 : 1781 
0c AF 9F 00111 PUSHAB MSGSIZE > 1785 
53 DD 00114 SHL R : 
000000006 00 02 FB 00116 CALLS #2, NMLSBLD_REPLY : 
oc AE DD 0011D PUSHL MS > 1786 
000000006 0 9F 00120 PUSHAB NMLSAB_SNDBUFFER : | 
000000006 00 Fe 91 6 CALLS #2, NMCSSEND : | 
04 00120 RET : 1788 


3; Routine Size: 302 bytes, Routine Base: S$CODE$ + 0874 


F 16 
T @ 16-Sep-1984 00:31:17 VAX-11 Bliss-32 V4.0-74 Pa 9 
T ¢ G Set Configurator Module vola 19-808-1382 90:35:15 DISKSVMSMASTER: CNML.SRCIJNMLSET.832; 1 al tT t 
3 3 17 1 ZSBTTL "NMLSSET_NI_CONFIG Set Configurator Module volatile Soeepeee gevenstere” 
; ; : ! GLOBAL ROUTINE RAMLSSET_NI_CONFIG (ENTITY, ENTITY_LEN, ENTITY_ADR) : NOVALUE = 
51 1 : 1 46 
; ; 1 : } FUNCTIONAL DESCRIPTION: 
: 14 ig 1338 ii This routine reads the permanent database for the Configurator 
; 181 1738 1! Module and builds NICE SET messages to set up the config volatile 
3; 18146 1797 1! database. It forwards these messages to the Configurator 
; 1815 1738 1! Module for processing. 
: Bi? 1890 1 i inputs 
: 1818 1 1 i : 
: 1819 1 8 1! ENTITY Entity type code. 
: 1820 1805 1! ENTITY_LEN Byte count of entity id string. 
; ; ; 1808 ! ENTITY_ADR Address of entity id string. 
: 1 1 4 tao 
3: 1824 1807 1 
: 5 1308 BEGIN 
; is - 1810 2 LOCAL 
3 H 3 ’ Vy rie. ' File id code 
: 18 1 18 OWNER ! Search key 
: 18 1 1814 FLDSIZE, 
3: 1 ; 1815 FLDADR 
: 183 1816 CPT_INDEX, 
: 1834 181 PST_INDEX 
3 1835 1 18 RECBSC : DESCRIPTOR, ! Record descriptor 
: 18 181 ATUS, 
3 + 8 i aes : REF DESCRIPTOR, ' Table for SET ALL 
: 1839 18 é : 
; 1840 1 ! If it's not a SET ALL command, simply forward the set command to the 
3 184g 1ase Configurator module for processing. 
; 1 § 1335 if NOT _:NALSGL_PRS_FLGS CNML$V_PRS_ALL] THEN 
: 184s 1 8 NMLSCALL_NI_CONFIG (); 
; : § H , RETURN; 
> 1848 1831 2! ‘ 
; 1849 i § ! It's a ser ALL command. Pre are to access the permanent database. 
3 ; 39 \3 : Get entity information from Entity Table. 
: 1 2§ 1835 FID = .NMLSAB_ENTITYDATA C.ENTITY, EITSB_FILEIDJ; ! File id code 
; 185 1 OWNER = .NMLSAB_ENTITYDATA [.ENTITY, ELTSW_KEYI; ' Search key 
: 34 TABDES = .NMLSAB-ENTITYDATA L.ENTITY, ELTSA~ALLTAB); 
; 36 } KEY = 0; 
: 1 4 1841 i for each circuit record in the permanent database, forward one SET command 
3 ! 5 : § H to the Configurator Module. 
; 1861 1844 WHILE NMLSHATCHRECORD (.FID, NML$GQ_RECBFDSC, KEY 
> 1862 1845 .OWNER, .ENTITY_LEN, .ENTITY_ADR, 
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0, 0, 0, 
récDSc) ‘dO 
i Build NICE mpeonee to forward to the Sent ‘eureter sonenens Since 
sing a SET MODULE CONFIGURATOR ... ALL 


! 
1 
: i grosses and, the 
! function sqde. option byte, and entity 1D (EONF TGURATOR) are already 
} in the buffer. 


BEGIN 


PIR = NAL SAB RCVBUFFER + 
INCR atch ff ROM 0 TO .TABDES tBécsu. LENGTH] = 1 DO 


BIND 
TABLE = TABDES CDSCSA_POINTER] : REF BLOCK; 


FLDADR = 0; 


OO Or MMR Be ae 


WN O ODO NOULS WN "OOOO 


1 864 i If the parameter in the SET ALL table is in the permanent database 
Ht 865 record, add it to the NICE SET command. 
Bae Bee if NMASSEARCHFLD cngcest 
5 868 E C.1, 0, 16, 01, 
ry, 869 
88 870 FLDADR) THEN 
eae 871 BEGIN 
9 are ! 
34 1h Add the NICE parameter ID 
892 875 PTR = CHSMOVE (2, TABLE C.1, 0, 16, 03, .PTR); 
89% B79 i If it's a string, add the string length. The PST table indicates 
ae o78 if it’s a string. 
B99 880 CPT_ INDEX = ae C. 16, 16, 03; 
898 881 PST_INDEX = .NML toy Bie ABLE C.CPT_INDEX, CPTSW_PSTINDEX 
8 HL IF TNMLS$AB_PRMSEM C-=PST_INDEX PSTSB_FORMAT] EGL NMLSK *RtRING THEN 
883 ' CHSWCHAR_A (.FLOSIZE, PTR); 
885 i 


Add the parameter value to the SET command. 
BTR = CHSMOVE (.FLDSIZE, .FLDADR, .PTR); 


3 
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88 3 
3 ; END; 
891 i Send the SET onmand to the Configurator Module. It will put the 
$36 ' circuit into it’s database, and return a cgenenee. which 
3i9 a7 NMLSCALL_NI CONFIG will then forward to NCP 
ais 95 NML$GL_RCVDATLEN = .PTR - NMLSAB_RCVBUFFER; 
a 98 WALSCALL NI_CONF IG 0; 
ay 4 If it's a SET ALL for one circuit, quit here. 
$17 ant if ieee? ENTITY. FORMAT NEQ (NMASC_ENT_KNO AND 2X‘FF*) THEN 
318 902 KEY = .KEY + 1; ! Increment record key 


NACSSET_ 


58 


aramete te yy: 
1 CONF I 


13 om 
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! End of NMLSSET_NI_CONFIG 


OFFC 00000 ENTRY NALSSET INI CONFIG, Save R2,R3,R4,R5,R6,R7,- ; 1790 
1¢ C2 0000 SUBL2 Pp : | 
08 6 6 1 £8 g BBS “NMLSGL_PRS_FLGS + 1826. 
titdaitdts 8 FB 006 CALLS +0: NMLSCACL_NT_ Les tiGe : 1838 
50 04 AC 2¢ 5 $O18 1$: MULL3 #44, ENTITY : 1885, 
AE 0000000060040 9A OO01A MOVZBL NML$AB_ ENTITYDATACROI FID : 
0000000060040 9F 00023 SHAB NMLSAB-ENTITYDATA+3LROJ + 1836 
6E C 0002A MOVZWL @(SP)+> OWNER : 
0000000060040 9F 0002D PUSHAB NMLSAB_ENTITYDATA*40(ROJ + 1837 
56 9E DO 000 VL @(SP)+> TABDES : | 
08 AE 04 00037 CLRL KEY + 1839. 
SA 04 Ab 9E OO03A MOVAB 4(R6), R10 + 1860. 
14 AE 9F OO03E 2S: PUSHAB RECDSC + 1844 | 
7E 7C 00041 CLRQ ss =( SP) : | 
7E D4 0043 CLRL = = (SP) : 
7E 08 AC 7D 0004 VG ENTITY_LEN, -(SP) + 1845) 
AE DD 00049 PUSHL ER : | 
f E 9F 0004C PUSHAB KEY + 1844 
000000 06 00 9F O004F PUSHAB NML$GQ_RECBFDSC : 
DD 00055 PUSHL FID ; | 
000000006 00 OA Fe 00058 CALLS #10, NMLSMATCHRECORD : 
01 50 8 20086 BLBS RO, 3$ : | 
53 000000006 00 9€ boss 3$: MOVAB NMLSAB_RCVBUFFER+15, PTR : 1855 | 
58 6 3C 0006A MOVZWL (TABDES), R11 : 1856) 
59 1 CE 00060 MNEGL #1, I ; | 
1 11 9070 BRB 5$ : 
C AE 04 00072 4$: CLRL _—s« FLDADR : 1863 
€ AE 9F 0007 PUSHAB FLDADR + 186? | 
14 AE 9F 0007 PUSHAB FLDSIZE : | 
00 BASS DF 00078 SHA (R10)C1) > 1868 
7E 9 3C oor MOVZWL a(SP)+, -(SP) F 
20 AE OF 2 PUSHAB RECDSC : 1867. 
000000006 00 94 FB CALLS #4, NMASSEARCHFLD : 
4 9 E c BLBC = RO. 6$ : | 
3 99 BASS F7 O008F CVTLW ini» 1], (PTR)+ : 1875. 
BAS9 DF 00094 SHA (RIO) CI > 1880. 
4 10 10 EF 00098 EXTZY #6, #16, a(SP)+, CPT_INDEX : | 
5 5 OA ¢5 0009D LL3 #10. CPT INDEX Ro : 1881 | 
0000000060040 9F O00A1 PUSH ssh petetNoes : | 
57 9E ¢ As MOVZWL a(SP)+ : 
50 7 04 AB ASHL #4, PST if ADE : 1882 | 
03 0000000060040 91 OOOAF CMPB NACSAS, PRNSEMS2CROJ, #3 ; 
04 12 00087 BNEQ 5$ ; 
83 3 089 MOVB FLDSIZE, (PTR)+ : 1883, 
OBp S$: mOVC3 FLDSIZE, @FLDADR, (PTR) F 
F C3 6$: AOBLSS R11, 1, 4$ ; 1856 | 


T - - 
Vo%~000 NACSSET_RI CONTIG TISt fant tqureter Module vola 1 1b-$eo-1984 9: 4:15 DL aKSVMGMAST ERSENML SRE NAL SET .832; - age 185 


000000006 C7 MOV NMLSAB_RCVBUFFER ; 1895) 
000000006 00 : i ce SUBL 3 RO. PTR PTR NMLSGL peAc¥barcen Pi. | 
sonore BF 000000006 0 CHG NMLSGB_ PO FORMAT. #255 ; 1900. 
A E INCL + + 1902) 
08 St 3 EA BRw ts 3 1844) 
ED 7$: RET ; 1905) 
; Routine Size: 238 bytes, Routine Base: SCODES + OCA2 
; 1923 1306 1 
3 1926 1907 1 END ! End of module 
; 1925 1908 1 
3; 1926 1909 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes | 
> SOWNS 165 NOVEL, WRT. RD .NOEXE,NOSHR, LCL. REL. CON,NOPIC.ALIGN(2) 
; SPLITS 19 »NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 34 NOVEC. *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
ee be a ee eran Symbols -------- Pages Processing | 
3 File Total Loaded Percent Maoped Time 
: _$255$DUA : ENML -OBJ INMLL 18.3351 341 80 23 27 00:00.1 | 
> 7$255$DUA28: (SHRLIBINMALIBRY.L 32; 1 887 17 1 47 00:00.¢ 
3 _$255$DUA28: oor ary een 231 1279 9 0 63 00:00. 
3; ~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 2 0 581 00:03.3 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLSE1T/OBJ=OBJ$:NMLSET MSRCS$:NMLSET/UPDATE=(ENHS:NMLSET) 
3; Size: 347 coge + 1752 data bytes 
; Run Time: 755.0 
3; Elapsed Time 5g5°* 
3 Lines/CPU Min 0 


voL=060 


NALSSET_Al 


3; Lexemes/CPU-Min: 12416 
Memo 


Compilation ¢ 


212 pages 
omplete 


ramet 
CONF 
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